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

Question

Информатика

Василий

24 марта, 14:36

Информатика. 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.