@moreleaksILoveMS

Выводит 0 вместо максимального числа, почему?

const n = 1000;
var
i,m: integer;
a: array [1..n] of integer;
l: integer;
function max(k: byte; var max: real): integer;
begin
var i: integer;
max:=0;
for i := 1 to k do
if (a[i] > max) then
  begin
  max:=a[i];
  end;
end;
begin
write('Введите размерность массива: ');
readln(m);
for i:=1 to m do
begin
a[i]:=random(50);
write(a[i],' ');
end;
writeln();
max(m,l);
writeln('Максимальный элемент массива = ',l);
end.
  • Вопрос задан
  • 41 просмотр
Пригласить эксперта
Ваш ответ на вопрос

Войдите, чтобы написать ответ

Войти через центр авторизации
Похожие вопросы
16 июн. 2019, в 15:21
1000 руб./за проект
16 июн. 2019, в 15:01
1000 руб./за проект
16 июн. 2019, в 14:02
7000 руб./за проект