Узнать, является ли максимально большой элемент массива четным - Turbo Pascal

Формулировка задачи:

Дан одномерный массив. Узнать, является ли максимально большой элемент массива четным. Сделать через процедуры и (или) функции. Массив открытого типа. Заранее спасибо

Код к задаче: «Узнать, является ли максимально большой элемент массива четным - Turbo Pascal»

textual
uses crt;
function Max(y:array of integer):integer;
var i,mx:integer;
begin
mx:=y[0];
for i:=1 to high(y) do
if y[i]>mx then mx:=y[i];
Max:=mx;
end;
 
var a:array[1..100] of integer;
    n,i,j,k:integer;
begin
clrscr;
randomize;
repeat
write('Размер массива от 1 до 100 n=');
readln(n);
until n in [1..100];
writeln('Массив');
for i:=1 to n do
 begin
  a[i]:=random(100);
  write(a[i]:4)
 end;
writeln;
write('Максимальный элемент=',Max(a));
if odd(Max(a)) then write('  он нечетный')
else write('  он четный');
readln
end.
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.

13   голосов, оценка 4.231 из 5


СДЕЛАЙТЕ РЕПОСТ