одномерный массив, который будет составляться с наименьших элементов строк матрицы

@Olezhka · Регистрация: 16.10.2010

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

Составить программу: Дано матрицу A[6x5], одномерный массив, который будет составляться с наименьших элементов строк матрицы. Поиск элемента оформить в виде процедуры.
Помогите пожалуйста, никогда не работал с процедурами(

Добавлено через 30 минут
люди, хелп плз(

Добавлено через 1 час 16 минут
ну хелп плз

@TAVulator · 19.12.2010, 20:27

Сообщение от Olezhka

Помогите пожалуйста, никогда не работал с процедурами(

сделай в виде просто программы, без процедуры.
Потом проще будет процедуру оформить.

@Olezhka · 19.12.2010, 22:42 **[ТС]**

Я просто не могу придумать как перебрать элементы матрицы и потом по очереди записать нужные элементы в одномерный массив(

Добавлено через 2 часа 6 минут
Подкиньте плз, мысль какую-то, как это сделать?

@Olezhka · 21.12.2010, 22:46 **[ТС]**

помогите пожалуйста(((((

Добавлено через 32 минуты
вот программу написал,вроде, а как теперь переделать в процедуру?(

uses crt;
const n=6;
m=5;
var a:array[1..n,1..m] of real;
mn,pr:real;
i,j:byte;
begin
clrscr;
randomize;
writeln('Исходная матрица:');
for i:=1 to n do
begin
for j:=1 to m do
begin
a[i,j]:=10*random;
write(a[i,j]:5:1);
end;
writeln;
end;
writeln('Минимальные элементы строк:');
pr:=1;
for i:=1 to n do
begin
mn:=a[i,1];
for j:=1 to m do
if a[i,j]<mn then mn:=a[i,j];
writeln('строка ',i,'=',mn:0:1);
end;
writeln;
readln
end.

@Olezhka 8 / 8 / 1 Регистрация: 16.10.2010 Сообщений: 77
		1
	одномерный массив, который будет составляться с наименьших элементов строк матрицы 19.12.2010, 20:23. Показов 588. Ответов 3 Метки нет (Все метки) Составить программу: Дано матрицу A[6x5], одномерный массив, который будет составляться с наименьших элементов строк матрицы. Поиск элемента оформить в виде процедуры. Помогите пожалуйста, никогда не работал с процедурами( Добавлено через 30 минут люди, хелп плз( Добавлено через 1 час 16 минут ну хелп плз 0

@TAVulator ⚽ 4190 / 1291 / 237 Регистрация: 27.07.2009 Сообщений: 3,962
	19.12.2010, 20:27	2
	Сообщение от Olezhka Помогите пожалуйста, никогда не работал с процедурами( сделай в виде просто программы, без процедуры. Потом проще будет процедуру оформить. 0

@Olezhka 8 / 8 / 1 Регистрация: 16.10.2010 Сообщений: 77
	19.12.2010, 22:42 [ТС]	3
	Я просто не могу придумать как перебрать элементы матрицы и потом по очереди записать нужные элементы в одномерный массив( Добавлено через 2 часа 6 минут Подкиньте плз, мысль какую-то, как это сделать? 0

@Olezhka 8 / 8 / 1 Регистрация: 16.10.2010 Сообщений: 77
	21.12.2010, 22:46 [ТС]	4
	помогите пожалуйста((((( Добавлено через 32 минуты вот программу написал,вроде, а как теперь переделать в процедуру?( uses crt; const n=6; m=5; var a:array[1..n,1..m] of real; mn,pr:real; i,j:byte; begin clrscr; randomize; writeln('Исходная матрица:'); for i:=1 to n do begin for j:=1 to m do begin a[i,j]:=10*random; write(a[i,j]:5:1); end; writeln; end; writeln('Минимальные элементы строк:'); pr:=1; for i:=1 to n do begin mn:=a[i,1]; for j:=1 to m do if a[i,j]<mn then mn:=a[i,j]; writeln('строка ',i,'=',mn:0:1); end; writeln; readln end. 0