Скачать программы    Все программы автора

Задание № 26

Составить программу подсчета количества положительных элементов массива, состоящего из 10 элементов.

program mas3;

var k,i: integer;

a: array[1..10] ofinteger;

begin

for i:=l to 10 do

begin

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

readln(a[i]);

end;

writeln('Элементы исходного массива');

for i:=l to 10 do write(a[i],- ');

writeln;

k:=0;

or i:=l to 10 do

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

writeln('Количество равно',k);

end.