Question

Дан массив целых чисел размерностью n (n=16), найти сумму первых пяти элементов массива Сделать в Паскале

Answer 1

program mass;

const n = 16;

var A: array [1..n] of integer;

i, sum : integer;

begin

writeln ('Vash massiv: ');

for i:=0 to n do A[i]:= random(10);

for i:=0 to n do write(A[i], ' ');

sum:=0;

for i:=0 to 5 do sum:=sum + a[i];

writeln();

writeln('s = ', sum);

end.

Answer 2

PascalABC.NET 3.4

begin
  var a:=ArrRandom(16,-99,99); a.Println;
  Writeln('Сумма первых 5 значений ',a[:5].Sum)
end.

Answer 3

Вот пример решения задачи на поиск суммы первых пяти элементов массива в Паскале:

pascalCopy code
program SumOfArrayElements;

const
  n = 16;
  
var
  arr: array[1..n] of Integer;
  sum: Integer;
  i: Integer;

begin
  { Заполняем массив случайными числами }
  Randomize;
  for i := 1 to n do
    arr[i] := Random(100);  // Генерируем случайное число от 0 до 99

  { Вычисляем сумму первых пяти элементов }
  sum := 0;
  for i := 1 to 5 do
    sum := sum + arr[i];

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

  readln;
end.

В этом примере мы объявляем массив arr размерностью 16 и переменную sum для хранения суммы. Затем мы заполняем массив случайными числами от 0 до 99 с помощью цикла for. Далее, с помощью еще одного цикла for мы вычисляем сумму первых пяти элементов массива. Наконец, выводим результат на экран с помощью writeln.

Обратите внимание, что в данном примере используется функция Randomize для инициализации генератора случайных чисел. Это необязательно, но помогает получить разные случайные числа при каждом запуске программы.