массив А вводиться с клавиатуры .вывести только нечетные элементы .размер произвольный .решение паскаль
Answers & Comments
JuliaProg
Uses crt; var a:array[1..5] of integer; n:integer; i:byte; begin for i:=1 to 5 do begin read(a[i]); writeln; end; for i:=1 to 5 do begin if a[i] mod 2 <> 0 then writeln(a[i]); end; end.
Answers & Comments
var a:array[1..5] of integer;
n:integer;
i:byte;
begin
for i:=1 to 5 do begin
read(a[i]);
writeln;
end;
for i:=1 to 5 do begin
if a[i] mod 2 <> 0 then
writeln(a[i]);
end;
end.