На паскале:
1. Создать программу вывода массива случайных чисел на экран.
2. Создать программы нахождения суммы элементов случайного массива (любая последовательность случайных чисел).
3. Создать программу нахождения максимального элемента случайного массива (любая последовательность случайных чисел).
Ответы
1
program PrintRandomArray;
const
N = 10; // размер массива
var
arr: array[1..N] of integer; // массив целых чисел
i: integer;
begin
// Заполняем массив случайными числами
for i := 1 to N do
arr[i] := Random(100); // генерируем случайное число от 0 до 99
// Выводим массив на экран
for i := 1 to N do
Write(arr[i], ' ');
writeln; // перевод строки
end.
2
program FindArraySum;
const
N = 10; // размер массива
var
arr: array[1..N] of integer; // массив целых чисел
i: integer;
sum: integer; // сумма элементов массива
begin
sum := 0; // инициализируем сумму нулем
// Заполняем массив случайными числами
for i := 1 to N do
arr[i] := Random(100); // генерируем случайное число от 0 до 99
// Считаем сумму элементов массива
for i := 1 to N do
sum := sum + arr[i];
// Выводим результат
writeln('Сумма элементов массива: ', sum);
end.
3
program FindArrayMax;
const
N = 10; // размер массива
var
arr: array[1..N] of integer; // массив целых чисел
i: integer;
max: integer; // максимальный элемент массива
begin
// Заполняем массив случайными числами
for i := 1 to N do
arr[i] := Random(100); // генерируем случайное число от 0 до 99
// Инициализируем max первым элементом массива
max := arr[1];
// Находим максимальный элемент массива
for i := 2 to N do
if arr[i] > max then
max := arr[i];
// Выводим результат
writeln('Максимальный элемент массива: ', max);
end.