7 мая в 20:01
В pascal введите 10 чисел и сосчитайте колличество отрицательных
program chisla10;
var x,k,i:integer;
begin
k:=0;
for i:=1 to 10 do begin
writeln('??????? ????? '); read(x);
if (x
аккаунтом