Дан массив A из 20 элементов.. найти количество положительных элементов массива. результат вывести на печать..
Дан массив A из 20 элементов.. найти количество положительных элементов массива. результат вывести на печать..
Гость
Ответ(ы) на вопрос:
Гостьprogram p1;
var a: array[1..1000] of integer;
var n, i, c: integer;
begin
readln(i);
c := 0;
for n := 1 to i do
begin
readln(a[i]);
if a[i] > 0 then c := c + 1;
end;
writeln(c);
end.
Не нашли ответ?
Похожие вопросы