Опубликовано 09.06.2017 по предмету Информатика от Гость >> <<

Вводить с клавиатуры 10 целых чисел, выдать на экран количество положительных чисел, количество отрицательных , количество нулевых

Ответ оставил Гость

Код Pascal12345678910111213141516171819202122 vara: array [1..10] of integer;i,p,o,n: byte;beginfor i:=1 to 10 dobeginwrite(Введите ,i, число: );readln(a[i]);end;for i:=1 to 10 dobeginif (a[i] > 0) then inc(p)elseif (a[i] < 0) then inc (o)elseinc(n);end;writeln(Количество положительных элементов = ,p);writeln(Количество отрицательных элементов = ,o);writeln(Количество нулевых элементов = ,n);end.