Поменять элементы матрицы

@Lambo · Регистрация: 06.11.2014

Author24 — интернет-сервис помощи студентам

Нужно поменять минимальные элементы в матрице 4x4 на найденное произведение.
Помогите пожалуйста))

@batmansha · 14.12.2010, 23:02

Pascal

uses crt;
var a:array [1..4,1..4] of integer;
m,n,min,p,i,j:integer;
begin
p:=1;
randomize;
for i:=1 to 4 do begin
for j:=1 to 4 do begin
a[i,j]:=random(21)-10;
write(a[i,j]:4);
end;readln;end;
 
min:=a[1,1];
for i:=1 to 4 do begin
for j:=1 to 4 do begin
p:=p*a[i,j];
if a[i,j]<min then begin min:=a[i,j]; m:=i; n:=j;
end;
end;end;
writeln('preobrazovanaya');
for i:=1 to 4 do begin
for j:=1 to 4 do begin
a[m,n]:=p;
write(a[i,j]:7);
end;readln;end;
readln;
end.

@Lambo 0 / 0 / 0 Регистрация: 06.11.2014 Сообщений: 9
		1
	Поменять элементы матрицы 14.12.2010, 19:59. Показов 914. Ответов 1 Метки нет (Все метки) Нужно поменять минимальные элементы в матрице 4x4 на найденное произведение. Помогите пожалуйста)) 0

	14.12.2010, 23:02

Поменять элементы матрицы

Решение