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

Обозначим массив из 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]gt;0  Поиск положительных частей массива

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

end.