Одномерный массив - Pascal (96187)

Формулировка задачи:

пусть C - одномерный массив вещественных чисел длинны N.Вести его через датчик случайных чисел найти : 1)Сумму квадратов элементов с нечётными номерами 2)среднее квадратное число элементов с чётными номерами

Решение задачи: «Одномерный массив»

Листинг программы

Program summa;
Uses crt;
Const n=10;
Var a: array[1..n] of integer; i:byte; s: real;
Begin
Clrscr;
s:=0;
Randomize;
Writeln('Исходный массив: ');
For i:=1 to n do
begin
a[i]:=random(10);
Write(a[i]:3);
If i mod 2 <> 0 then s:=s+a[i];
end;
Writeln;
Write('Сумма равна ',s);
End.

Объяснение кода листинга программы

Список действий в коде:

Объявление переменных:
- a: массив из 10 целых чисел
- i: переменная типа byte (8 бит), инициализируется значением 1
- s: переменная типа real (число с плавающей точкой), инициализируется значением 0
Очистка экрана с помощью функции Clrscr
Инициализация генератора случайных чисел с помощью функции Randomize
Вывод исходного массива на экран с помощью цикла For и функции Write
- Каждый элемент массива выводится на новой строке
- К каждой строке вывода добавляется формат вывода числа на 3 символа
В каждой итерации цикла к переменной s прибавляется значение элемента массива, если индекс элемента нечетный (иначе говоря, каждый второй элемент массива участвует в подсчете)
После окончания цикла выводится на экран сумма всех элементов массива с помощью функции Write и конкатенации строк
- Значение переменной s выводится в формате Сумма равна с помощью конкатенации строк
Программа завершается