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

Pascal abc

Question

Информатика

Киряха

10 августа, 03:16

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

Pascal abc

+4

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