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

Question

Информатика

Слава

6 октября, 01:26

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

+4

Ответы (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.