Question

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

Answer 1

var
d: array [1..6] of integer;
i:integer;
begin
for i:=1 to 6 do
read(d[i]);
for i:=1 to 6 do begin
if d[i]>0 then
write(d[i],' ');
end;
end.

Answer 2

Огромное спасибо ).