Задачи на массив (паскаль): Массив (подсчёт суммы) а) Дан массив целых чисел. Найти сумму нечётных элементов. б) Дан массив. Определить максимальный и минимальный элемент.

Предыдущий
вопрос Следующий
вопрос

а) Пример кода на Паскале для подсчёта суммы нечётных элементов в массиве:

program SumOfOddElements;
var
arr: array[1..10] of Integer;
i, sum: Integer;
begin
sum := 0;
// заполнение массива
for i := 1 to 10 do
begin
arr[i] := Random(10);
writeln('arr[', i, '] = ', arr[i]);
if arr[i] mod 2 <> 0 then
sum := sum + arr[i];
end;
writeln('Сумма нечётных элементов массива: ', sum);
end.

б) Пример кода на Паскале для определения максимального и минимального элементов в массиве:

program MaxMinElement;
var
arr: array[1..10] of Integer;
i, max, min: Integer;
begin
// заполнение массива
for i := 1 to 10 do
begin
arr[i] := Random(10);
writeln('arr[', i, '] = ', arr[i]);
end;
max := arr[1];
min := arr[1];
for i := 2 to 10 do
begin
if arr[i] > max then
max := arr[i];
if arr[i] < min then
min := arr[i];
end;
writeln('Максимальный элемент массива: ', max);
writeln('Минимальный элемент массива: ', min);
end.