Помогите, пожалуйста. Дан массив размеров N, не превышающий 100. Заполните массив от 0 до...

Question

Помогите, пожалуйста.

Дан массив размеров N, не превышающий 100. Заполните массив от 0 до N. Вывести номер и значение максимального и минимального элемента.

Comments

Что "снова"?

---

Теперь понял. Не могли бы вы скинуть правильное решение этой задачи?

---

У меня правильное решение

Answer 1

Var  
arr: array[1..100] of integer;  
i, n, min, max: integer;
begin  
min:=1;  
max:=1;  
readln(n);  
for i:=1 to n do    
begin    
arr[i]:=random(100);    
write(arr[i], ' ');      
if arr[i]>arr[max] then max:=i;      
if arr[i]end;  
writeln;  
writeln('Минимальный(', arr[min], ');
Максимальный(', arr[max], ');');
end.