Ответы
Ответ дал:
1
Ответ:
var
i,j,n,max:integer;
begin
write('Введите n: '); readln(n);
for i:=1 to n do begin
write('Введите ', i,'-е число: '); readln(j);
if i = 2 then max := j
else if i mod 2 = 0 then begin
if max < j then max := j
end;
end;
write('Максимальный чётный по счёту элемент равен ', max);
end.
01vika01b:
Доброй души человек, благодарю ❤️
Вас заинтересует
1 год назад
1 год назад
1 год назад
6 лет назад
8 лет назад