Алгоритмические языки и программирование. Игошина Л.В. - 44 стр.

UptoLike

ВУЗ: 

ПГУ | Пенза

Составители: 

Рубрика: 

да
Текст программы
Uses crt;
{ Описание данных}
Var M:array[1..50,1..100]of integer;
Sum:array[1..50] of longint;
n,k,i,j,imin:integer;
Min:longint;
BEGIN clrscr;
{ Ввод данных}
writeln(' Введите число строк и столбцов');
readln(n,k);
Ввод
n и k
Цикл
i=1,n
Цикл
j=1,k
M[i,j]=
Random(500)
Цикл
i=1,n
Цикл
j=1,k
SUM[i]:=0
SUM[i] :=
SUM[i]
+M[i,j]
Конец
Min:=Sum[1]
imin:=1
Цикл
i=1,n
Min:=Sum[i]
imin:=i
Sum[i]
<=Min
Вывод
Min,
imin 
             Ввод                         Цикл
                                          i=1,n      Min:=Sum[1]
             nиk
                                                     imin:=1



              Цикл                                      Цикл
              i=1,n                     SUM[i]:=0       i=1,n




              Цикл                         Цикл
              j=1,k                        j=1,k        Sum[i]
                                                        <=Min

                                                            да
             M[i,j]=                     SUM[i] :=    Min:=Sum[i]
            Random(500)                   SUM[i]      imin:=i
                                          +M[i,j]




                                                        Вывод
                                                        Min,
                                             Конец      imin



                                  Текст программы

Uses crt;
     { Описание данных}
    Var M:array[1..50,1..100]of integer;
       Sum:array[1..50] of longint;
       n,k,i,j,imin:integer;
       Min:longint;
  BEGIN          clrscr;
    { Ввод данных}
   writeln(' Введите число строк и столбцов');
   readln(n,k);

Страницы