Pascal+ блок схема

[Владислав(RUS)]

1. задан ряд x1, x2, ..., x20
Построить новый ряд, где на месте хmin и хmax стоит сумма (x1+x20)/2.
определить сумму элементов нового ряда.

2. Заданы списки поставщиков и потребителей и соответсующие объемы поставок и потребления. Напечатать таблицу поставщиков и потребителей, имеющих равные объемы поставок и потребления.

Спасибо

[newerow1989]

Задача 1:

var x:array[1..20] of integer;
    i,xmin,xmax,s:integer;
begin
   Randomize;
   For i:=1 to 20 do
   begin
      x[i]:=Random(1000);
      Write(x[i],' ');
   end;
   Writeln;
   xmin:=1;
   xmax:=1;
   For i:=2 to 20 do
   begin
      If x[i]<x[xmin] then
         xmin:=i;
      If x[i]>x[xmax] then
         xmax:=i;
   end;
   x[xmin]:=(x[1]+x[20]) div 2;//не охота переводить массив в тип real
   x[xmax]:=x[xmin];
   s:=0;
   For i:=1 to 20 do
   begin
      Write(x[i],' ');
      s:=s+x[i];
   end;
   Writeln('');
   Writeln('s = ',s);
   Readln;
end.

Сойдет?