<em>Решение:</em>
<em>1) 800*600*5=2400000</em>
<em>2) 2400000:8:1024=293 Кбайт</em>
<em>Ответ: 293 К байт</em>
Const
N = 50;
Var
M:array[1..N] of longint;
i,Max:integer;
Begin
Randomize;
WriteLn('Цены(в рублях): ');
Max:=1;
For i:= 1 to N do
Begin
M[i]:=random(9900001)+100000;
WriteLn(M[i]);
if M[i] > M[Max] then Max:=i;
End;
WriteLn('Max = ',M[Max]);
End.
Ну в папке лежат бумажки какие-то а карандаш он маленький если просунуть руку пониже то ты его найдёш