1) Объявить массив из 10 элементов, заполнить его случайными числами и вычислить сумму квадратов всех элементов (ABC Паскаль).
2) Объявить массив из 30 чисел, заполнить его случайными числами в промежутке от 10 до 100. Вывести элементы массива и найти максимальный элемент (ABC Паскаль).

1) Объявить массив из 10 элементов, заполнить его случайными числами и вычислить сумму квадратов всех элементов (ABC Паскаль).

Для решения нужно создать массив из 10 целых чисел, заполнить его случайными значениями, затем пройти по всем элементам массива и сложить квадраты каждого элемента.

pascal




program SumKvadratov;
var
  a: array[1..10] of integer;
  i, sum: integer;
begin
  randomize;
  sum := 0;
  for i := 1 to 10 do
  begin
    a[i] := random(100);
    sum := sum + a[i] * a[i];
  end;
  writeln('Элементы массива:');
  for i := 1 to 10 do
    write(a[i], ' ');
  writeln;
  writeln('Сумма квадратов элементов = ', sum);
end.

В программе функция random(100) создает случайные числа от 0 до 99. В цикле вычисляется квадрат каждого элемента и добавляется к переменной sum.

2) Объявить массив из 30 чисел, заполнить его случайными числами в промежутке от 10 до 100. Вывести элементы массива и найти максимальный элемент (ABC Паскаль).

Для получения чисел от 10 до 100 используется выражение random(91)+10, так как функция random(91) дает значения от 0 до 90.

pascal




program MaksElement;
var
  a: array[1..30] of integer;
  i, max: integer;
begin
  randomize;
  for i := 1 to 30 do
    a[i] := random(91) + 10;
  writeln('Элементы массива:');
  for i := 1 to 30 do
    write(a[i], ' ');
  max := a[1];
  for i := 2 to 30 do
  begin
    if a[i] > max then
      max := a[i];
  end;
  writeln;
  writeln('Максимальный элемент массива = ', max);
end.

В этой программе сначала создается массив из 30 элементов и заполняется случайными числами от 10 до 100. Затем первый элемент принимается за максимальный, после чего остальные элементы сравниваются с ним. Если находится большее число, значение максимума заменяется. В результате программа выводит все элементы массива и наибольшее число среди них.