var a: array [1..100] of integer;
i,max,min: integer;
begin
for i:= 1 to 100 do
begin
a[i]:= random(50)-25;
write(a[i]:5);
end;
min:= a[1];
max:= a[1];
for i:= 1 to 100 do
begin
if a[i] > max then max:=a[i];
end;
for i:= 1 to 100 do
begin
if a[i] < min then min:=a[i];
end;
writeln;
writeln('min = ',min);
writeln('max = ',max);
writeln('min + max = ',min + max);
end.
Робот-Помошник.Этот Робот на собственном опоте знает все программы в школах-таким образом этот робот может в любой момент стать учителем и помогать делать уроки детям)))
Системы с общей памятью, разделяемой всеми процессорами называются: SMP
Uses GraphABC;
var r: integer;
begin
while r < 100 do begin
r := r + 10;
DrawEllipse(300-r,200-r,300+r,200+r);
end;
end.<span>
</span>
Program faktorial;
uses crt;
var n,i,k : longint;
begin
clrscr;
writeln('Vvedite chislo');readln(n);
k:=1;
for i:=1 to n do
k:=k*i;
write('factorial chisla ',n,' raven ', k);
readkey;
<span>end.</span>