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

Question

Информатика

Ефросинья

4 марта, 15:32

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

+5

Ответы (1)

Знаете ответ?

Сысой · 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.