Информатика, 9 класс, массивы

// 1. Объявить целочисленный массив из N элементов
const N = 10; // Пример значения
var arr: array[1..N] of integer;

// 2. Заполнить массив нулями
for i := 1 to N do
arr[i] := 0;

// 3. Заполнить массив натуральными числами от 1 до N
for i := 1 to N do
arr[i] := i;

// 4. Заполнить массив случайными числами в диапазоне [50, 100]
Randomize; // Инициализация генератора случайных чисел
for i := 1 to N do
arr[i] := Random(51) + 50; // Random(51) → 0..50, +50 → 50..100

// 5. Найти сумму значений всех элементов массива
var sum: integer;
sum := 0;
for i := 1 to N do
sum := sum + arr[i];

// 6. Найти сумму значений чётных элементов массива
var sumEven: integer;
sumEven := 0;
for i := 1 to N do
if arr[i] mod 2 = 0 then
sumEven := sumEven + arr[i];

// 7. Найти количество отрицательных элементов массива
var countNeg: integer;
countNeg := 0;
for i := 1 to N do
if arr[i] < 0 then
countNeg := countNeg + 1;

// 8. Найти максимальный элемент массива
var max: integer;
max := arr[1];
for i := 2 to N do
if arr[i] > max then
max := arr[i];



Примечания:

В Pascal ABC.NET можно использовать динамические массивы, но в классическом Pascal размер массива задается константой (const N = 10;).

Randomize инициализирует генератор случайных чисел текущим временем.

Для корректной работы все переменные (sum, sumEven, countNeg, max) должны быть объявлены в разделе var.

В Pascal регистр букв не имеет значения (например, mod и MOD равнозначны).