Составьте программу удаления максимального элемента массива С(20)

Question

Составьте программу удаления максимального элемента массива С(20)

Answer 1

Программа генерирует масив и присваевает значение 0 самому большому значению в массиве.

 

Program d1
var
c: array[1..20] of integer;
i,z:integer;
begin
Randomize;

for i:=1 to 20 do
begin
c[i]:=random(50);
end;

z:=c[1];

for i:=1 to 20 do
begin
if c[i]>z then z:=c[i];
end;

c[z]:=0;
end.