128гб=128.000
128.000-512= 127.488
объем жесткого диска =127.488мг
Program z4; Var a: array [1..1000] of integer; i, sum, n:integer; S_R: real;Begin write('Введите кол-во элементов - '); readln(n); for i := 1 to n do begin a[i] := random (30); sum:= sum + a[i]; end; S_R:= sum / n; writeln('Cреднее арифметическое - ', S_R); for i := 1 to n do if (a[i] >= S_R) then write(a[i],' '); End.
Полезная- чтение правил и формул
Бесполезная- чтеник комиксов
Var
N, X, Max, i: Integer;
Begin
Max := 0;
WriteLn('Введите количество чисел N: ');
Read(n);
WriteLn('Введите N чисел: ');
For i := 1 To N Do
Begin
Read(X);
If X > Max then Max := x;
End;
WriteLn('Максимальное: ', Max);
End.
S:=0
For i:=1 to 10
S:=s+2*i
i:=1
S:=o+2*1=2
i:=2
S:=2+2*2=6
i=3
S=6+2*3=12
i=4
S=12+2*4=20
i=5
S=40+2*5=50
i=6
S=50+2*6=62
i=7
S=63+2*7=77
i=8
S=77+2*8=93
i=9
S=93+2*9=111
i=10
S=111+2*10=131
Ответ=131