Помогите с программой (нужно найти максимальный элемент массива через процедуру) мне выдает ошибку
var
maxa:integer;
procedure max(c:integer; var m:integer);
var i:integer;
a: array [1..100] of integer;
begin
for i:=1 to c do begin
a[i]:= random (20);
write(a[i],' ');
end;
writeln;
for i:=1 to c do
if m
end;
begin
max(100,maxa);
writeln(maxa);
end.
Приложения:
![](https://st.uroker.com/files/216/216a0cae49d6ce52ccc1282f057af4aa.jpg)
Ответы
Ответ дал:
1
1. Max - это системная функция/ Не стоит называть таким именем свою.
2. Последнее условие в процедуре не совсем понятно. И для нахождения максимального значения оптимальнее это делать в одном цикле. В PascalABC так вообще можно написать m:=a.max; и ВСЁ. Но если хотите как на Pascal - Я исправил.
3. Функция ищет максимальное значение в массиве.
Pascal
var
maxa:integer;
procedure Getmax(c:integer; var m:integer);
var
i:integer;
a: array [1..100] of integer;
begin
for i:=1 to c do begin
a[i]:= random (20);
write(a[i],' ');
if m<a[i] then
m:=a[i];
end;
writeln;
end;
begin
Getmax(100,maxa);
writeln('Max=', maxa);
end.
marinaivankova03:
Спасибо)
Вас заинтересует
1 год назад
1 год назад
1 год назад
7 лет назад
8 лет назад