Question

ЯЗЫК: Pascal
Const n=5; m=4;
var s, i, j : integer;
a: array [1..n, 1..m] of
integer;
begin
for i:= 1 to n do
for j:= 1 to m do
a[i,j]:=random(10);
for i:=1 to n do begin
for j:=1 to m do
write ( A[i,j]:5 );
writeln;
end;
S:=0;
For i:=1 to n do
For j:=1 to m do
S:=S+a[i,j];
Writeln('сумма элементов
массива равна ',S);
end.

Изменить программу таким образом, чтобы:
a. Матрица состояла из 15 элементов вещественного типа;
b. Значения элементов должны меняться в интервале от 3 до 7;
c. В результате выполнения программы должно быть найдено
произведение всех элементов матрицы;
d. Вычисляться сумма элементов матрицы по строкам.

Answer 1

ответ:надеюсь это то что надо

const

   N = 5;

var

   a: array[1..N] of integer;

   i, iMin: integer;

begin

   writeln('Исходный массив:');

   for i := 1 to N do

   begin

       a[i] := random(100) - 50;

       write(a[i]:4);

   end;

   iMin := 1;{инциируем первым элементом}

   for i := 2 to N do {проверяем все остальные}

       if a[i] < a[iMin] then {новый минимальный}

           iMin := i; {запомнить i}

   writeln; {перейти на новую строку}

   writeln('Минимальный элемент a[', iMin, ']=', a[iMin]);

end.

Объяснение за внимание))