Напишу ответ если напишешь по русски а не по украинскому
Program mmm;
Var a : real;
var i: integer;
s: real;
begin
s:=0;
Randomize;
For i := 1 To 30 Do
Begin
a := random*100-45;
writeln(a:6:2) ;
//выписываем сгенерированные числа, необязательно
if a>40 then
s:=s+a;
End;
writeln(s:6:2) ;
end.
Информационная модель домашней библиотеки
Если 1 символ = 8 бит = 1юбайту, то:
2,7 Кбайт =2,7 *1024 байта= 2764 символа
если 1 символ =16 битам= 2 байтам, то:
2,7*1024 :2 =1382 символа