Составьте программу ввода элементов массива 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.