Серафим
7 год назад
Информатика. Pascal ABC. Составьте программу ввода элементов массива d [1..6] с клавиатуры и вывода на экран элементов с положительными значениями.
ОТВЕТЫ
Kanesabas
Jul 11, 2019
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]gt;0 then
write(d[i], );
end;
end.
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]gt;0 then
write(d[i], );
end;
end.
103
