Задача 13 (найти мин элемент и поделить на него всю матрицу)

Посмотреть архив целиком
13) В матрице 12х15 найти минимальный элемент в матрице. Поделить всю матрицу на этот элемент , если он = 0 , не изменить матрицу. Использовать процедуру. Вывести исходную матрицу и полученную в основной программе

program matrizi;

{$APPTYPE CONSOLE}

uses
SysUtils;

type mas=array[1..12,1..15] of double;

procedure VVOD (var a:mas;var n,m:integer);
var i,j:integer;
begin
repeat
writeln('VVedite kolichestvo strok');
readln(n);
until n<12;
repeat
writeln('VVedite kolichestvo stolbzov');
readln(m);
until m<15;
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:mas);
var i,j:integer;
min:double;
begin
min:=a[1,1];
for i:=1 to n do begin
for j:=1 to m do if a[i,j] end;
for i:=1 to n do begin
for j:=1 to m do begin
b[i,j]:=a[i,j];
b[i,j]:=b[i,j]/min;
end;
end;
end;


procedure VIVOD (a:mas;n,m:integer);
var i,j:integer;
begin
for i:=1 to n do begin
for j:=1 to m do write (a[i,j]:1:1,' ');
writeln;
end;
end;

var A,B:mas;
n,m:integer;
begin
VVOD(A,n,m);
POISK(A,n,m,B);
writeln('Isxodnaya matriza');
VIVOD(A,n,m);
writeln('Poluchennaya matriza');
VIVOD(B,n,m);
readln;
end.

Случайные файлы

Файл
referat.txt
description.txt
readme.txt
Otchet.txt
readme.txt




Чтобы не видеть здесь видео-рекламу достаточно стать зарегистрированным пользователем.
Чтобы не видеть никакую рекламу на сайте, нужно стать VIP-пользователем.
Это можно сделать совершенно бесплатно. Читайте подробности тут.