Добавил:
Источник:
Uman
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:01 семестр / Разное / Готовые решённые задачи в формате ТХТ / Матрицы / Задача 5 (найти в каждой строке ср арифметическое и из них массив)
.txt 5) матрица m<30 n<20 найти в каждой строке среднее арифм и из этих этих ср.арифм создать массив
program matrizi;
{$APPTYPE CONSOLE}
uses
SysUtils;
type mas=array[1..30,1..20] of integer;
massiv=array[1..30] of double;
procedure VVOD (var a:mas;var n,m:integer);
var i,j:integer;
begin
writeln('VVedite kolichestvo strok');
readln(n);
writeln('VVedite kolichestvo stolbzov');
readln(m);
writeln('Vvedite matrizu');
for i:=1 to n do begin
for j:=1 to m do read (a[i,j]);
readln;
end;
end;
procedure POISK (a:mas;n,m:integer;var b:massiv);
var i,j,sum:integer;
ar:double;
begin
for i:=1 to n do begin
sum:=0;
for j:=1 to m do sum:=sum+a[i,j];
ar:=sum/m;
b[i]:=ar;
end;
end;
procedure VIVOD (b:massiv;n:integer);
var i:integer;
begin
for i:=1 to n do write (b[i]:1:1,' ');
writeln;
end;
var A:mas;
b:massiv;
n,m:integer;
begin
VVOD(A,n,m);
POISK(A,n,m,b);
writeln('Poluchennaya matriza');
VIVOD(b,n);
readln;
end.
program matrizi;
{$APPTYPE CONSOLE}
uses
SysUtils;
type mas=array[1..30,1..20] of integer;
massiv=array[1..30] of double;
procedure VVOD (var a:mas;var n,m:integer);
var i,j:integer;
begin
writeln('VVedite kolichestvo strok');
readln(n);
writeln('VVedite kolichestvo stolbzov');
readln(m);
writeln('Vvedite matrizu');
for i:=1 to n do begin
for j:=1 to m do read (a[i,j]);
readln;
end;
end;
procedure POISK (a:mas;n,m:integer;var b:massiv);
var i,j,sum:integer;
ar:double;
begin
for i:=1 to n do begin
sum:=0;
for j:=1 to m do sum:=sum+a[i,j];
ar:=sum/m;
b[i]:=ar;
end;
end;
procedure VIVOD (b:massiv;n:integer);
var i:integer;
begin
for i:=1 to n do write (b[i]:1:1,' ');
writeln;
end;
var A:mas;
b:massiv;
n,m:integer;
begin
VVOD(A,n,m);
POISK(A,n,m,b);
writeln('Poluchennaya matriza');
VIVOD(b,n);
readln;
end.
Соседние файлы в папке Матрицы