Найти минимальные элементы в каждом столбце и вывести их в седьмой строке матрицы

@GUFI · Регистрация: 06.04.2011

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

Получите 36 случайных чисел, записать их в файл, чтением из файла сформировать матрицу 6 на 6. Найти минимальные элементы в каждом столбце и вывести их в седьмой строке матрицы.

помогите кто может написать эту программу. Заранее спасибо...

@Высокий · 07.05.2011, 09:53

Pascal

uses crt;
type mas = array[1..100] of integer;
     mat = array[1..100,1..100] of integer;
var f: file of integer;
    A,min: mas;
    B: mat;
    i,j: byte;
    s: string;
Begin clrscr;
randomize;
write('Ââåäèòå èìÿ ôàéëà: ');
readln(s);
assign(f, s);
rewrite(f);
for i:=1 to 36 do begin
A[i]:=random(100);
write(f,A[i]);
end;
close(f);
reset(f);
for i:=1 to 6 do
  for j:=1 to 6 do read(f,B[i,j]);
close(f);
for i:=1 to 6 do begin
  min[i]:=100;
  for j:=1 to 6 do
  if B[j,i]<min[i] then min[i]:=B[j,i];
  end;
for i:=1 to 6 do begin
  B[i,7]:=min[i];
  for j:=1 to 7 do write(B[i,j]:4);
  writeln end;
readkey
end.

@GUFI 11 / 11 / 6 Регистрация: 06.04.2011 Сообщений: 31
		1
	Найти минимальные элементы в каждом столбце и вывести их в седьмой строке матрицы 06.05.2011, 22:29. Показов 1018. Ответов 1 Метки нет (Все метки) Получите 36 случайных чисел, записать их в файл, чтением из файла сформировать матрицу 6 на 6. Найти минимальные элементы в каждом столбце и вывести их в седьмой строке матрицы. помогите кто может написать эту программу. Заранее спасибо... 0

	07.05.2011, 09:53

Опции темы

Найти минимальные элементы в каждом столбце и вывести их в седьмой строке матрицы

Решение