Составьте программу ввода элементов массива b[1 ... 6] с клавиатуры и вывода на экран элементов с положительными значениями.

Обозначим массив из шести чисел буквой а. Порядковый номер элементов массива - буквой i, а значения элементов массива - a[i]. Будем использовать оператор цикла с параметром for. Тогда программа на языке программирования Pascal ABC может выглядеть так:

program zadacha;

uses crt;

var a: array[1 ... 6] of integer; {Описание массива}

i:integer;

begin

for i:=1 to 6 do begin

writeln ('vvedite a[i]:');

readln (a[i]); {Ввод элементов массива с клавиатуры во время выполнения программы}

end;

for i:=1 to 6 do

if a[i]>0 {Поиск положительных элементов массива}

then writeln ('a[i]=', a[i]); {Вывод положительных элементов массива на экран }

end.