Question

Помогите пожалуйста, очень сильно нужно, даю 100 баллов

Answer 1

Ответ:

const

m=8;

var

arr: array[1..m] of integer;

max_num: integer;

i: integer;

Summ: integer;

min_num: integer;

x: integer;

begin

randomize;

Summ:=0;

x:=random(20,70);

for i := 1 to x do begin

arr[i] := random(10);

Summ+=arr[i];

writeln (arr[i]);//вывод элементов на экран

end;

max_num := arr[1];

for i := 2 to m do

if arr[i] > max_num then begin

max_num := arr[i];

end;

min_num := arr[1];

for i := 2 to m do

if arr[i] < min_num then begin

min_num := arr[i];

end;

writeln('Summ = ',summ);//Сумма

writeln ('Max = ',max_num);//Максимальный

writeln('Min = ', min_num);//минимальный элемент

writeln('Сount_of_elements = ',x);//количество элементов

end.

Объяснение:

вроде в коде подписано что нужно