Допоможіть написати

@irunka · Регистрация: 26.05.2010

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

Дуже потрібно вашу допомогу!!!!!!!!

Завдання:
Напишісь схему алгоритму і програму.Дано масив А(4,3). ЗНАЙТИ МІНІМАЛЬНИЙ ЕЛЕМЕНТ ВСІХ СТРІЧОК.

БУДЬ ЛАСОЧКА.....НАПЕРЕД ДУЖЕ ВДЯЧНА...=))

@good91 · 26.05.2010, 20:50

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

ЗНАЙТИ МІНІМАЛЬНИЙ ЕЛЕМЕНТ ВСІХ СТРІЧОК.

Походу так:

Pascal

Program Lab_1;
 Uses crt;
 Const n=4;m=3;
 
 Type
  Mas=array[1..n,1..m] of real;
 
 Var
  A:Mas;
  I,j:integer;
  min:real;
 
 Procedure vvod (var a:mas);
  Begin
   For I:=1 to n do
    Begin
     Writeln;
    For j:=1 to m do
     Begin
      Writeln ('Введите элемент',I:2,i:2);
      Readln (A[i,j]);
     End;
     End;
   End;
   
  Procedure vyvod (var a:mas);
  Begin
   Writeln ('Исходная матрица A:');
    For I:=1 to n do
     Begin
      Writeln;
       For j:=1 to m do
        Begin
         Write (A[i,j]);
        End;
      End;
   End;
   
 
 
  Procedure poisk_min (Var A:mas);
  Begin
   Writeln;
   Write ('Минимальный элемент:');
    Min:=A[1,1];
     Begin
      For i:=1 to n do
       for j:=1 to m do
        Begin
         If (min>A[i,j]) then
         min:=A[i,j];
        End;
        Writeln (min:1:0);
     End;
  End;
  
 
 Begin
   Clrscr;
   Vvod (a);
   vyvod (a);
   Poisk_min (A);
   Readln
  End.

@irunka · 26.05.2010, 21:08 **[ТС]**

дуже дякую !!!

@irunka 0 / 0 / 0 Регистрация: 26.05.2010 Сообщений: 3
		1
	Допоможіть написати 26.05.2010, 20:04. Показов 1184. Ответов 2 Метки нет (Все метки) Дуже потрібно вашу допомогу!!!!!!!! Завдання: Напишісь схему алгоритму і програму.Дано масив А(4,3). ЗНАЙТИ МІНІМАЛЬНИЙ ЕЛЕМЕНТ ВСІХ СТРІЧОК. БУДЬ ЛАСОЧКА.....НАПЕРЕД ДУЖЕ ВДЯЧНА...=)) 0

@irunka 0 / 0 / 0 Регистрация: 26.05.2010 Сообщений: 3
	26.05.2010, 21:08 [ТС]	3
	дуже дякую !!! 0

Допоможіть написати

Решение