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

Pascal abc

Question

Информатика

Катяша

9 апреля, 07:53

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

Pascal abc

+2

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