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