Скрин....................
Ввод с клавы:
Var
A:array[1..5] of real;
i:integer;
Begin
WriteLn('Введите массив');
For i:= 1 to 5 do
Read(A[i]);
For i:= 1 to 5 do
Write(A[i],' ');
End.
Заполнение случайными числами:
Var
A:array[1..5] of real;
i:integer;
Begin
For i:= 1 to 5 do
A[i]:=random(21)-10;
For i:= 1 to 5 do
Write(A[i],' ');
End.
Вопрос спроектирован не очень понятно:Кбайт,Мбайт
Полное решение, все задания
//PascalABC.NET
power((c + d), 2) / (sqrt(2 * x));
power((c + d), 2) / (sqrt(2) * x);