программа формирует изображение 4-х квадратов со стороной 1 шаг на расстоянии 1 наш по горизонтали дрг от друга: СД ДВА ПТ ПТ ПР ПР ПТ ПТ ПТ СД ДВА выбрать описание тела процедуры два в которой используется процедура квадрат:ПРОЦЕДУРА КВАДРАТ ШГ ПТ ШГ ПТ ШГ ПТ ШГ КН ПРОЦ. а.сД КВАДРАТ ПТ ПТ ПР ПР ПТ ПР ПТ СД КВАДРАТ Б.СД КВАДРАТ ПТ ПТ ПР ПР ПТ ПТ ПТ СД КВАДРАТ В. СД КВАДРАТ ПТ ПТ ШГ ШГ ПТ ПР ПТ СД КВАДРАТ Г.СД КВАДРАТ ПТ ПТ ПР ШГ ПТ ПР ПТ СД КВАДРАТ Д. СД КВАДРАТ ПТ ПР ШГ ПР ПТ ПР ПТ СД КВАДРАТ

1)var ar:array of integer;
max,min,s,i,n,maxi,mini:integer;
begin;
randomize;
max:=-1;
min:=101;
readln(n);
setlength(ar,n+1);
writeln('Array:');
for i:=1 to n do
 begin;
  ar[i]:=random(100);
  write(ar[i]:4);
  if max<ar[i] then
   begin;
    max:=ar[i];
    maxi:=i;
   end;
  if min>ar[i] then
   begin;
    min:=ar[i];
    mini:=i;
   end;
  s:=s+ar[i];
 end;
ar[maxi]:=s;
ar[mini]:=s;
writeln;
writeln('Final array:');
for i:=1 to n do
write(ar[i]:4);
end.
2)var ar:array of integer;
k,h,i,s:integer;
f:real;
begin;
randomize;
readln(h);
setlength(ar,h+1);
writeln('Array:');
for i:=1 to h do
 begin;
  ar[i]:=random(100)-50;
  write(ar[i]:4);
  if (ar[i]>0) and (ar[i] mod 2=0) then
   begin;
    inc(k);
    s:=s+ar[i];
   end;
 end;
f:=s/k;
writeln;
writeln('Result:',f);
end.