Программирование Паскаль (Делфи 7)1. Задан массив A(N,N), заполненный целыми случайными числами из диапазона [-11;13]. Найти сумму нечетных положительных элементов массива. 2. Задан массив A(N), заполненный случайными целыми числами из диапазона [-16,24]. Составить программу упорядочения массива по убыванию элементов.

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

Пример программы на Delphi 7 для выполнения задачи 1:

program SumOfOddPositiveElements;
const
N = 5;
var
A: array[1..N, 1..N] of integer;
i, j, sum: integer;
begin
sum := 0;
Randomize;
// Заполняем массив A случайными числами
for i := 1 to N do
for j := 1 to N do
A[i, j] := Random(25) - 11;
// Находим сумму нечетных положительных элементов
for i := 1 to N do
for j := 1 to N do
if (A[i, j] > 0) and (A[i, j] mod 2 <> 0) then
sum := sum + A[i, j];
// Выводим исходный массив и сумму
for i := 1 to N do
begin
for j := 1 to N do
Write(A[i, j]:4);
Writeln;
end;
Writeln('Сумма нечетных положительных элементов массива: ', sum);
end.

Пример программы на Delphi 7 для выполнения задачи 2:

program SortArrayDescending;
const
N = 10;
var
A: array[1..N] of integer;
i, j, temp: integer;
begin
Randomize;
// Заполняем массив A случайными числами
for i := 1 to N do
A[i] := Random(41) - 16;
// Сортируем массив по убыванию
for i := 1 to N-1 do
for j := i+1 to N do
if A[i] < A[j] then
begin
temp := A[i];
A[i] := A[j];
A[j] := temp;
end;
// Выводим отсортированный массив
for i := 1 to N do
Write(A[i]:4);
end.