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

Question

Информатика

Колюся

17 февраля, 04:28

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

+2

Ответы (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.