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.