Дан массив А (6). Определите количество положительных элементов. Паскаль.

Question

Информатика

Феоктиста

8 декабря, 20:37

Дан массив А (6). Определите количество положительных элементов. Паскаль.

+1

Ответы (1)

Знаете ответ на вопрос?

Любуша · Answer 1

Var a:array[1 ... 6] of integer;

k, i:integer;

begin

k:=0;

for i:=1 to 6 do

begin

writeln ('Введите элемент массива') ;

readln (a[i]) ;

if a[i]>0 then k:=k+1;

end;

writeln ('Количество положительных элементов : ', k) ;

end.