Question

Помогите пожалуйста!! написать программу в которой: вводится и выводится массив из 10 рандомных чисел (от - 10 до 10). Нужно найти сумму элементов массива и максимальное значение. Вывести ответы на экран.(через паскаль)

Answer 1

Программа:

Pascal:

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

begin

 for var i := 1 to 10 do arr[i] := random(-10, 10);

 writeln('Массив: ', arr);

 writeln('Сумма элементов массива: ', arr.sum);

 writeln('Максимальный элемент массива: ', arr.max);

end.

Answer 2

Ответ:

program test;

var i,s,m:integer;

a:array [1..10] of integer;

begin

randomize;

s:=0;  

for i:=1 to 10 do

begin

a[i]:=random(21)-10;

write(a[i],' ');

s:=s+a[i];

if i=1 then m:=a[i]

else if a[i]>m then m:=a[i]

end;

writeln;

writeln(s);

writeln(m)

end.

Answer 3

Программа на языке Pascal для нахождения суммы элементов массива и максимального значения

program ArraySumAndMax;

const
  N = 10; // размер массива

var
  arr: array[1..N] of integer;
  i, sum, max: integer;

begin
  // Заполнение массива случайными числами от -10 до 10
  Randomize;
  for i := 1 to N do
    arr[i] := Random(21) - 10;

// Нахождение суммы элементов массива
  sum := 0;
  for i := 1 to N do
    sum := sum + arr[i];

// Нахождение максимального значения
  max := arr[1];
  for i := 2 to N do
    if arr[i] > max then
      max := arr[i];

// Вывод результатов на экран
  writeln('Массив:');
  for i := 1 to N do
    write(arr[i], ' ');
  writeln;
  writeln('Сумма элементов массива: ', sum);
  writeln('Максимальное значение: ', max);

end.

Объяснение программы: - Программа начинается с объявления константы `N`, которая определяет размер массива. - Затем объявляются переменные `arr` (массив), `i` (счетчик), `sum` (сумма элементов массива) и `max` (максимальное значение). - С помощью цикла `for` и функции `Random` заполняется массив `arr` случайными числами от -10 до 10. - Затем с помощью еще одного цикла `for` вычисляется сумма элементов массива и находится максимальное значение. - Наконец, результаты выводятся на экран с помощью процедуры `writeln`.

Надеюсь, эта программа поможет вам! Если у вас возникнут еще вопросы, не стесняйтесь задавать.