Question

Одномерный массив содержит 100 элементов случайных целых чисел от 20 до 100. Нужно написать программу вывода на экран этих чисел и найти сумму массива с 20 по 60 элемент. Программу нужно писать в Паскале(PascalABC).

Answer 1

Ответ:

var a:array [1..100] of Integer;

i,s:Integer;

begin

write ('Массив ');

for i:=1 to 100 do

begin

a[i]:=random(81)+20;

write (a[i]:3);

if (i>=20) and (i<=60) then s:=s+a[i]

end;

writeln;

write ('Сумма ',s)

end.

Answer 2

Конечно! Вот пример программы на языке PascalABC, которая создает одномерный массив из 100 случайных целых чисел от 20 до 100, выводит его на экран и находит сумму элементов массива с 20 по 60 индекс:

pascalCopy code
program ArraySum;

var
  arr: array[1..100] of Integer;
  i, sum: Integer;

begin
  Randomize;

  // Заполнение массива случайными числами от 20 до 100
  for i := 1 to 100 do
    arr[i] := Random(81) + 20; // Random(81) генерирует числа от 0 до 80

  // Вывод массива на экран
  writeln('Массив:');
  for i := 1 to 100 do
    writeln(arr[i]);

  // Вычисление суммы элементов с 20 по 60 индекс
  sum := 0;
  for i := 20 to 60 do
    sum := sum + arr[i];

  writeln('Сумма элементов с 20 по 60 индекс: ', sum);

  readln;
end.

Эта программа использует генератор случайных чисел Randomize для инициализации генератора случайных чисел и заполняет массив arr случайными числами от 20 до 100. Затем она выводит весь массив на экран, по одному элементу в строке. В конце программа вычисляет сумму элементов массива с 20 по 60 индекс и выводит ее на экран.