Ввод и вывод одномерных массивов в Паскале
Ввод и вывод массивов осуществляется поэлементно.
Введем одномерный массив Х, состоящий из 30 элементов, то есть необходимо ввести некую последовательность элементов Х1, Х2, …, Х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.
Блок-схема
Дата добавления: 2015-02-05; просмотров: 1302;