Question

Сделать в Pascal ABC. Найти сумму первых 5-ти элементов одномерного массива

Answer 1

Program element_massiva5 
var 
Sum, i : integer; 
a : array [1..15] of integer;  
begin 
Sum := 0; 
 writeln('введите 15 чисел массива'); 
for i:=1 to 15 do 
 begin  
 readln(a[i]); 
 end; 
Sum:=a[1]+a[2]+a[3]+a[4]+a[5]; 
 Writeln(' Ответ: ',Sum); 
end.

Answer 2

Чтобы найти сумму первых пяти элементов одномерного массива в Pascal ABC, вам потребуется объявить массив и выполнить итерацию по первым пяти элементам, суммируя их значения. Вот пример кода:

program SumOfArrayElements;
var
  arr: array[1..10] of Integer; // объявляем массив из 10 элементов
  i, sum: Integer;
begin
  // заполняем массив значениями
  arr[1] := 10;
  arr[2] := 20;
  arr[3] := 30;
  arr[4] := 40;
  arr[5] := 50;
  arr[6] := 60;
  arr[7] := 70;
  arr[8] := 80;
  arr[9] := 90;
  arr[10] := 100;

// инициализируем сумму нулем
  sum := 0;

// суммируем первые пять элементов массива
  for i := 1 to 5 do
  begin
    sum := sum + arr[i];
  end;

// выводим результат
  writeln('Сумма первых пяти элементов массива: ', sum);
end.

В этом примере мы объявляем массив `arr` из 10 элементов и заполняем его значениями от 10 до 100. Затем мы инициализируем переменную `sum` нулем и выполняем итерацию по первым пяти элементам массива, суммируя их значения и сохраняя результат в `sum`. Наконец, мы выводим сумму первых пяти элементов массива на экран.

Примечание: В приведенном примере мы заполнили массив вручную для наглядности. В реальной программе значения массива могут быть введены пользователем или сгенерированы случайным образом.