Блок-схема двумерного массива

@~~ovr~~ · 04.11.2013, 23:00. **Показов** 4668. **Ответов** 2

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

В данной действительной квадратной матрице порядка n найти сумму элементов строки, в которой расположен элемент с наименьшим значением. Предполагается, что такой элемент единственный.
Вот листинг:

Pascal

var
a:array[1..100,1..100] of integer;
i,j,m,n,im,jm:integer;
sum:real;
begin
 randomize;
 Write('Введите количество строк: ');readln(m);
 Write('Введите количество столбцов: ');readln(n);
 im:=1; jm:=1;
 For i:=1 to m do
    begin
    For j:=1 to n do
       begin
       a[i,j]:=random(100)-50;
       write(a[i,j]:5);
       If a[i,j]<a[im,jm] then begin im:=i; jm:=j; end;
       end;
    writeln;
    end;
 Writeln('Минимальный элемент  ',a[im,jm]);
 For j:=1 to n do
    sum:=sum+a[im,j];
 Writeln('Сумма ',sum);
end.

Помогите сделать блок- схему, очень нужно, дымлюсь сижу((

@Sead · 05.11.2013, 06:48

держи

@~~ovr~~ · 05.11.2013, 09:12 **[ТС]**

Sead, Спасибо!

@Sead 66 / 69 / 33 Регистрация: 07.10.2013 Сообщений: 396
	05.11.2013, 06:48	2
	держи Миниатюры 1

@~~ovr~~ Заблокирован
	05.11.2013, 09:12 [ТС]	3
	Sead, Спасибо! 0