Паскаль
Напишите программу, которая заполняет массив из 20 элементов случайными числами от 0 до
50 и выводит сумму первого и последнего элементов этого массива.

Предыдущий
вопрос Следующий
вопрос

program SumFirstLastElement;
var
arr: array[1..20] of Integer;
i, sum: Integer;
begin
Randomize;
// Заполняем массив случайными числами от 0 до 50
for i := 1 to 20 do
begin
arr[i] := Random(51); // Генерация чисел от 0 до 50
end;
// Выводим массив
Write('Массив: ');
for i := 1 to 20 do
begin
Write(arr[i], ' ');
end;
Writeln;
// Вычисляем сумму первого и последнего элементов массива
sum := arr[1] + arr[20];
Write('Сумма первого и последнего элементов массива: ', sum);
end.

Пример вывода:
Массив: 10 45 32 23 48 5 19 34 20 47 13 3 50 12 41 26 5 27 6 10
Сумма первого и последнего элементов массива: 20