Задача. Провести указанные вычисления с двумерным массивом и организовать простой поиск - Pascal ABC

Формулировка задачи:

Вычислить произведение тех элементов массива, для которых выполняется неравенство -2.1< aij<1.5.

Указание. Создать генератором случайных чисел в интервале от - 20 до 20, двумерный массив (4 х 4)с элементами aij . Вывести его на экран в виде таблицы (матрицы). Далее выполнить задание своего варианта для созданного массива.

Решение задачи: «Задача. Провести указанные вычисления с двумерным массивом и организовать простой поиск»

Листинг программы

uses crt;
var a:array[1..4,1..4] of real;
    i,j:integer;
    p:real;
begin
p:=1;
for i:=1 to 4 do begin
writeln;
for j:=1 to 4 do begin
a[i,j]:=random*20-20;
write(a[i,j]:6:1,' ');
if (a[i,j]>(-2.1)) and (a[i,j]<1.5) then begin
P:=p*a[i,j];
end; end; end;
writeln;
If p<>1 then writeln('Г€Г±ГЄГ®Г¬Г®ГҐ ГЇГ°Г®ГЁГ§ГўГҐГ¤ГҐГ*ГЁГҐ ',p:6:2)
else
writeln('Г’Г*ГЄГЁГµ ГЅГ«ГҐГ¬ГҐГ*ГІГ®Гў Г*ГҐГІ');
end.

Объяснение кода листинга программы

В этом коде двумерный массив a размером 4x4 заполняется случайными числами с помощью функции random. Затем происходит поиск суммы элементов массива, удовлетворяющих условию (a[i,j]>(-2.1)) и (a[i,j]<1.5)), и результат сохраняется в переменной p. Если p не равно 1, то выводится сообщение Г€Г±ГЄГ®Г¬Г®ГҐ ГЇГ°Г®ГЁГ§ГўГҐГ¤ГҐГ*ГЁГҐ с числовым значением p в формате 6:2. В противном случае выводится сообщение Г’Г*ГЄГЁГµ ГЅГ«ГҐГ¬ГҐГ*ГІГ®Гў Г*ГҐГІ.