uses graphABC;
var
x1, y1, x2, y2: integer;
begin
x1 := 1;
y1 := 1;
x2 := 800;
y2 := 20;
Window.SetSize(800, 600);
for var i := 1 to 30 do
begin
SetBrushColor(clRandom);
FillRect(x1, y1, x2, y2);
y1 := y1 + 20;
y2 := y2 + 20;
end;
end.
Program sadadasf;
var i,k,l,m,s: integer;
A: Array[1..150] of integer;
begin
Writeln('Сколько чисел будет в массиве?');
readln(k);
l:=9999;
m:=-1000;
For i:=1 to k do
begin
Writeln('Введите элемент массива №',i);
Readln(A[i]);
If A[i]>m then m:=A[i];
If A[i]<l then l:=A[i];
end;
s:=m+l;
Writeln('Сумма минимального и максимального элемента массива: ',s);
<span>end.</span>
переходить по зебре и там где есть гаи
Известо, что размер 1 символа <span>Unicode = 2B.
Тогда:
</span>604*89*66*2B=7095792B/1024=6929,48KB/1024=6,77MB
6,77/1,44=4,7
Информационный объем тестового документа <span>6,77MB.
</span>Для переноса этого документа понабится 5 трехдюймовых дискет емкости 1,44мб.