Question

1) Массив из 10 элементов заполнить случайными числами от -10 до 10 и вывести на экран сумму элементов. 2) Массив из 15 элементов заполнить случайными числами от 0 до 50 и вывести на экран количество четных элементов. 3) Массив из 20 элементов заполнить случайными числами от 0 до 100 и вывести на экран минимальное значение. Программа: PascalABC

Answer 1

Программа:

Pascal:

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

begin

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

 writeln(arr, #10, arr.sum);

end.

№2) var arr: array[1..15] of integer;

 even, i: integer;

begin

 for i := 1 to 10 do begin

   arr[i] := random(50);

   if arr[i] mod 2 = 0 then inc(even);

 end;

 writeln(arr, #10, even);

end.

№3) var arr: array[1..20] of integer;

begin

 for var i := 1 to 20 do arr[i] := random(100);

 writeln(arr, #10, arr.min);

end.

Answer 2

1) Для решения данной задачи можно использовать функцию randomize(), чтобы инициализировать генератор случайных чисел, и функцию random(), чтобы получить случайное число от -10 до 10. Затем нужно создать массив из 10 элементов и заполнить его случайными числами. После этого можно просуммировать все элементы массива и вывести результат на экран.

Пример решения на языке PascalABC:

program sum_of_elements; var arr: array[1..10] of integer; i, sum: integer; begin randomize(); // инициализация генератора случайных чисел // заполнение массива случайными числами от -10 до 10 for i := 1 to 10 do arr[i] := random(21) - 10; // вычисление суммы элементов массива sum := 0; for i := 1 to 10 do sum := sum + arr[i]; writeln('Сумма элементов массива: ', sum); end.

2) Для решения данной задачи также можно использовать функции randomize() и random(). Нужно создать массив из 15 элементов и заполнить его случайными числами от 0 до 50. Затем можно пройти по всем элементам массива и проверить, является ли каждый элемент четным. Если да, то увеличить счетчик четных элементов. После этого можно вывести полученное количество на экран.

Пример решения на языке PascalABC:

program count_even_elements; var arr: array[1..15] of integer; i, count: integer; begin randomize(); // инициализация генератора случайных чисел // заполнение массива случайными числами от 0 до 50 for i := 1 to 15 do arr[i] := random(51); // подсчет количества четных элементов count := 0; for i := 1 to 15 do begin if arr[i] mod 2 = 0 then count := count + 1; end; writeln('Количество четных элементов: ', count); end.

3) Для решения этой задачи нужно создать массив из 20 элементов и заполнить его случайными числами от 0 до 100. Затем нужно найти минимальное значение в массиве, пройдя по всем элементам и сравнивая их со значением минимума. После этого можно вывести минимальное значение на экран.

Пример решения на языке PascalABC:

program find_min_value; var arr: array[1..20] of integer; i, min: integer; begin randomize(); // инициализация генератора случайных чисел // заполнение массива случайными числами от 0 до 100 for i := 1 to 20 do arr[i] := random(101); // поиск минимального значения min := arr[1]; for i := 2 to 20 do begin if arr[i] < min then min := arr[i]; end; writeln('Минимальное значение: ', min); end.

Эти программы можно запустить в среде PascalABC, чтобы получить результаты на экране.