Вписати фрагмент програми, який відповідає описy одновимірний масив n із 10 дійсних чисел одновимірний масив date із 20 цілих чисел сума всіх елементів масиву, який складається з 30 елементів елементи довільного масиву дорівнюють квадратам своїх індексів ввести з клавіатури в масив 20 цілих чисел
Var
N: array[1..10] of real;
Одновимірний масив Date із 20 цілих чисел
Var
Date: array [1..20] of integer;
Сума всіх елементів масиву,
який складається з 30 елементів
For i := 1 to 30 do
S := S + A[i]
Елементи довільного масиву дорівнюють квадратам своїх індексів
For i := 1 to 10 do
A[i] := i*i; // или A[i] := Sqr(i);
Ввести з клавіатури в масив 20 цілих чисел
For i := 1 to 20 do
Read(A[i])