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

Question

Информатика

Поляша

12 января, 06:06

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

+1

Ответы (1)

Знаете ответ?

Павлюка · 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.