Информатика. Pascal ABC. Составьте программу ввода элементов массива d [1..6] с клавиатуры и вывода на экран элементов с положительными значениями.
Информатика. Pascal ABC. Составьте программу ввода элементов массива d [1..6] с клавиатуры и вывода на экран элементов с положительными значениями.
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы