Question

Вписати фрагмент програми, який відповідає описy

Одновимірний масив N із 10 дійсних чисел

Одновимірний масив Date із 20 цілих чисел

Сума всіх елементів масиву,
який складається з 30 елементів

Елементи довільного масиву дорівнюють квадратам своїх індексів

Ввести з клавіатури в масив 20 цілих чисел

Answer 1

Одновимірний масив N із 10 дійсних чисел
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])