Дано 5 чисел напечатать нечетные числа в паскале
Дано 5 чисел напечатать нечетные числа в паскале
Гость
Ответ(ы) на вопрос:
Гостьprogram zadacha;vara: array[1..5] of integer;i: integer;beginfor i:=1 to 5 do read(a[i]);writeln();write('nechetnie chisla: ');
for i:=1 to 5 doif a[i] mod 2 <> 0 then beginwrite(a[i]:6);end;
end.
Не нашли ответ?
Похожие вопросы