ЯЗЫК: 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. Вычисляться сумма элементов матрицы по строкам.
Writeln(‘p=’,p,’ s=’,s);
Ответ:надеюсь это то что надо
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.
Объяснение:Спасибо за внимание))