В одномерном массиве из 10 элементов посчитать количество положительных элементов.

Pascal abc

Question

Информатика

Никуля

1 мая, 21:13

В одномерном массиве из 10 элементов посчитать количество положительных элементов.

Pascal abc

+5

Ответы (1)

Знаете ответ?

Мака · Answer 1

Const N = 10;

var A: array [1 ... N] of real;

i, k: real;

begin

{ввод массива}

for i:=1 to N do

if A[i]>0 then

k:=k+1;

writeln ('Положительных чисел: ', k) ;

end.

В одномерном массиве из 10 элементов посчитать количество положительных элементов.Pascal abc

В одномерном массиве из 10 элементов посчитать количество положительных элементов.

Pascal abc