1. Создать одномерный массив размером [10] при помощи генератора случайных чисел.2....

Question

1. Создать одномерный массив размером [10] при помощи генератора случайных чисел.

2. Подсчитать сумму элементов одномерного массива размером [10], заданного генератором случайных чисел.

3. Подсчитать произведение элементов одномерного массива размером [10], заданного генератором случайных чисел.

4. Найти максимальный элемент одномерного массива размером [10], заданного генератором случайных чисел. Элементы создаются в интервале от 1 до 100.

РЕШИТЕ ПОЖАЛУЙСТА В ПАСКАЛЕ, ЕСЛИ НЕ СЛОЖНО ОБЪЯСНИТЕ)

Answer 1

Var i,s,p,max:integer;
a:array[1..10] of integer;    // описание переменных
begin
s:=0;
p:=1;
max:=1;
 for i:=1 to 10 do        // Цикл в котором находится:
 begin
  a[i]:=random(100);  // генерация рандом чисел
  write(a[i]:5);            // вывод всего массива
  s:=s+a[i];                // нахождение суммы
  p:=p*a[i];                // нахождение произведения
 end;
for i:=1 to 10 do            // цикл для нахождения максимального в массиве
 if a[i]>max then max:=a[i];
writeln;
writeln('Summa: ',s);                 // Все что ниже вывод резельтатов.
writeln('Proizvedenie: ',p);
writeln('Maximalnoe: ',max);
end.