Ответы
Ответ дал:
0
var a:array [0..67] of integer;
i,m,n:integer;
begin
m:=-100;
for i:=0 to 67 do
begin
a[i]:=random(199)-99;
if ((a[i]>m) and (a[i] mod 2 <> 0)) then
begin
m:=a[i];
n:=i
end
end;
writeln (a);
writeln ('Максимальный нечётный элемент ',m,' и его номер ',n)
end.
Ответ дал:
0
Спасибо, помогите с заданиями в профиле пожалуйста.
Ответ дал:
0
помогите с заданиями в профиле пожалуйста.
Похожие вопросы
2 года назад
2 года назад
2 года назад
2 года назад
8 лет назад
9 лет назад