Надсистемой Земля явл.для атмосферы Земли
Надсистема для Земли:Солнечная система
Uses crt;
const n=4;
m=4;
var a: array [1..n,1..m] of integer;
b: array [1..100] of integer;
x,y,z,max,min,k: integer;
begin
z:=1;
for x:=1 to n do begin
for y:=1 to m do
begin
a[x,y]:=random(20);
write(a[x,y]:3);
end;
writeln;
end;
for y:=1 to m do begin
max:=a[1,y];
for x:=1 to n do
if a[x,y]>max then max:=a[x,y];
b[z]:=max;
inc(z);
<span> end;
</span> min:=b[1];
k:=z-1;
for z:=1 to n do
if b[z]<min then min:=b[z];
writeln;
writeln(min);
<span>end.
---
Блок-схема во вложении</span>
5,10, 15, 20, 25, 30,35,40,45....115
{ Пример программы для процедуры FloodFill }
<span>Uses Graph,Crt; </span>
<span>Var Gd, Gm : Integer; </span>
<span>Begin </span>
<span>Gd:=Detect; </span>
<span>InitGraph(Gd, Gm, ''); </span>
<span>If GraphResult <> grOk Then Halt(1); </span>
<span>SetColor(GetMaxColor); </span>
<span>Circle(50, 50, 20); </span>
<span>FloodFill(50, 50, GetMaxColor); </span>
<span>Readkey; </span>
<span>CloseGraph; </span>
<span>End. </span>
<span>Procedure FloodFill(X, Y : Integer; Border : Word); </span>
<span>Закрашивает замкнутую область, используя текущие стиль и цвет закраски. </span>
<span>Procedure SetFillStyle(Pattern : Word; Color : Word); </span>
<span>Устанавливает цвет и стиль закраски. </span>
<span>Procedure SetColor(Color : Word) </span>
<span>устанавливает текущий цвет, </span>
<span>Если понравилось решение - нажимай "спасибо" и "лучший" (рядом с кнопкой "спасибо") :)</span>