Паскаль: написать программу для определения максимального элемента в одномерном массиве случайных вещественных чисел c[80]. найти сумму всех элементов. оформить ввод/вывод массива.

Var A:array [1..100] of real;
max:real; N,I:integer;
begin
N:=80;
for I:=1 to N do begin
a[I]:=random (20,5);
max:=a[1];
Sum:=Sum+a[I];
end;
for I:=1 to N do
if a[I] >max then max:=a[I];
for I:=1 to N do
write (A[I]:3);
writeln;
writeln (max);
writeln (sum);
end.

@np.rayzer:[DAA520] ★ ♫ ✿

444 444 444

У арабов взял)@np.rayzer:[DAA520] ★ ♫ ✿

444 444 444

У арабов взял)@np.rayzer:[DAA520] ★ ♫ ✿

444 444 444

У арабов взял)@np.rayzer:[DAA520] ★ ♫ ✿

444 444 444

У арабов взял)@np.rayzer:[DAA520] ★ ♫ ✿

444 444 444

У арабов взял)@np.rayzer:[DAA520] ★ ♫ ✿

444 444 444

У арабов взял)@np.rayzer:[DAA520] ★ ♫ ✿

444 444 444

У арабов взял)@np.rayzer:[DAA520] ★ ♫ ✿

444 444 444

У арабов взял)@np.rayzer:[DAA520] ★ ♫ ✿

444 444 444

У арабов взял)@np.rayzer:[DAA520] ★ ♫ ✿

444 444 444

У арабов взял)@np.rayzer:[DAA520] ★ ♫ ✿

444 444 444

У арабов взял)

*переводим большую единицу (Гб) в меньшую (Мб)*
Что бы это сделать нужно 40 Гб * 1024
Но так как мы знаем что 1024 это 2^10, то получаться что 40Гб= 40* 2^10Мб
чтобы найти кол-во дисков 
Нужно объем информации разделить (40 * 2^10) на объем дика (600)
(40*2^10) \ (600) = (5*2^3*2^10) \ (75*2^3) *сокращаем 2^3* =
=(5*2^10) \ (75) *возводим 2 в 10 степень и умножаем на 5* =
=5120 \ 75 =68,2666... *округляем в большую сторону, т.к по условию задачи дано что информация должна занимать полностью диск*
ОТВЕТ : 69

**справка* степени 2*
2^1=2
2^2=4
2^3=8
2^4=16
2^5=32
2^6=64
2^7=128
2^8=256
2^9=512
2^10=1024