Question

помогите, пожалуйста. информатика/Паскаль не сложными командами

Answer 1

Задание 1:

Program Znanija;

Var m: array [1..20] of integer;

a,min,max,sum: integer;

begin

randomize;

for a:=1 to 20 do

   begin

   m[a]:=random(100);

   write(m[a],' ');

   end;

min:=m[1];

max:=m[1];

for a:=1 to 20 do

   begin

   if m[a]>max then max:=m[a];

   if m[a]<min then min:=m[a];

   end;

   

sum:=min+max;

Writeln;

Writeln('Максимальный эллемент массива = ',max);

Writeln('Минимальный эллемент массива = ',min);

Writeln('Сумма минимального и максимального = ',sum);

End.

Задание 2:

В общем устал писать,  дальшем сам