Матрица:Найти среднее арифметическое наибольшего и наименьшего значений ее элементов

@Максим_макс · Регистрация: 12.03.2013

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

Дана действительная матрица размера 6 x 9. Найти среднее арифметическое наибольшего
и наименьшего значений ее элементов.

Новичок · 05.05.2013, 19:42

Pascal

program dz;
const n=6; 
      m=9;
var a:array[1..n,1..m]of Real;
i,j,imax,jmax,imin,jmin:Integer;
sr:Real;
begin
Writeln('Заданная матрица:');
Randomize;
for i:=1 to n do
begin
for j:=1 to m do
begin
a[i,j]:=Random(151)/100;
Write(a[i,j]:0:2,'   ');
end;
Writeln;
end;
imax:=1;
jmax:=1;
imin:=1;
jmin:=1;
for i:=1 to n do
for j:=1 to m do
if a[i,j]>a[imax,jmax] then
begin
imax:=i;
jmax:=j;
end else
if a[i,j]<a[imin,jmin] then
begin
imin:=i;
jmin:=j;
end;
sr:=(a[imax,jmax]+a[imin,jmin])/2;
Writeln('Среднее арифметическое наибольшего и наименьшего значений:',sr:0:4);
Readln;
end.

@Максим_макс 1 / 1 / 2 Регистрация: 12.03.2013 Сообщений: 164
		1
	Матрица:Найти среднее арифметическое наибольшего и наименьшего значений ее элементов 05.05.2013, 18:44. Показов 2051. Ответов 1 Метки нет (Все метки) Дана действительная матрица размера 6 x 9. Найти среднее арифметическое наибольшего и наименьшего значений ее элементов. 0

	05.05.2013, 19:42

Матрица:Найти среднее арифметическое наибольшего и наименьшего значений ее элементов

Решение