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