Ввод и вывод одномерных массивов в Паскале

Ввод и вывод массивов осуществляется поэлементно.

Введем одномерный массив Х, состоящий из 30 элементов, то есть необходимо ввести некую последовательность элементов Х₁, Х₂, …, Х₃₀.

Пусть i – индекс (порядковый номер) элемента в массиве Х. Тогда

Х_i – i-й элемент массива Х, где i = 1, 2, …, 30.

Задание 9

Дан одномерный массив, элементами которого являются вещественные числа. Определить количество положительных чисел в массиве.

Текст программы на языке Турбо Паскаль

Program ChisloPol;

Uses crt;

Var c: array[1..1000] of real; i, n, K: integer;

Begin

clrscr;

{*Задание размера массива*}

writeln(‘введите размер массива’);

readln(n);

{*Ввод элементов массива*}

fori:=1 to n do readln(c[i]);

{*Подсчет числа положительных элементов*}

K:=0;

for i:=1 to n do if c[i]>0 then K:=K+1;

{*Печать результатов*}

writeln(‘число положительных элементов массива равно ’, K) ;

repeat until keypressed;

end.

Блок-схема