Question

СРОЧНО!!! Нужно написать код в PascalABC.NET со статическим массивом. А если быть точнее - Создать массив из N-двузначных чисел и определить сумму рандомных чисел

Answer 1

program ex_1;

 var N, S, i: Integer;

     Arr: array of Integer;

 begin

   randomize;

   write('Введите N: ');

   read(N);

   SetLength(Arr, N);

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

   for i := 0 to N-1 do begin

     Arr[i]:=random(90)+10;

     write(Arr[i],' ');

     S+=Arr[i]

   end;

   writeln;

   write('Сумма: ', S);

 end.

Answer 2

Для начала, необходимо объявить переменные и константы, которые будут использоваться в программе. В данном случае, мы будем использовать переменную N для указания размера массива, а также переменные sum и i для хранения суммы чисел и индекса элементов массива соответственно:

var N: integer; sum, i: integer;

Далее, нужно запросить у пользователя значение N, чтобы определить размер массива:

write('Введите количество элементов массива: '); readln(N);

Далее, создаем статический массив из N элементов:

var arr: array[1..N] of integer;

Заполняем массив случайными двузначными числами:

for i := 1 to N do begin arr[i] := Random(90) + 10; end;

Для определения суммы рандомных чисел, нужно пройтись по всем элементам массива и прибавить их значения к переменной sum:

sum := 0; for i := 1 to N do begin sum := sum + arr[i]; end;

Наконец, выводим результат на экран:

writeln('Сумма случайных чисел: ', sum);

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

program RandomSum; var N: integer; sum, i: integer; arr: array[1..N] of integer; begin write('Введите количество элементов массива: '); readln(N); for i := 1 to N do begin arr[i] := Random(90) + 10; end; sum := 0; for i := 1 to N do begin sum := sum + arr[i]; end; writeln('Сумма случайных чисел: ', sum); end.