дан массив A из 20 элементов.. найти количество положительных элементов массива. результат вывести на печать..
Ответы на вопрос
Ответил kashinkostyan4i
0
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.
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.
Новые вопросы