Найти минимальную сумму элементов в строках двумерного массива

@kosword · Регистрация: 17.11.2011

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

найти минимальную сумму элементов в строках двумерного массива

@kosword · 30.11.2011, 01:37 **[ТС]**

Спасибо, сделал

Pascal

program mat;
uses crt;
const M=9;   {найти минимальную сумму элементов в строках двумерного массива}
N=9;
var i,j,min,sum,minin:integer;
a:array[0..M,0..N] of integer;
begin
randomize;
clrscr;
min:=0;
for i:=0 to M do
 begin
 write(i+1:2,') ');
 for j:=0 to N do
  begin
  a[i,j]:=random(100);
  write(a[i,j]:3);
  end;
 writeln;
 end;
for i:=0 to N do
 min:=min+a[0,i];
minin:=0;
textcolor(33);
for i:=0 to M do
 begin
 sum:=0;
 for j:=0 to N do
  sum:=sum+a[i,j];
 gotoxy(N*3+10,i+1);
 write(sum);
 if sum<min then
  begin
  minin:=i;
  min:=sum;
  end;
 end;
gotoxy(1,M+3);
writeln('min=',min,' in the ',minin+1,' line');
repeat until keypressed;
end.

@kosword 1 / 1 / 1 Регистрация: 17.11.2011 Сообщений: 14
		1
	Найти минимальную сумму элементов в строках двумерного массива 29.11.2011, 23:50. Показов 2063. Ответов 1 Метки нет (Все метки) найти минимальную сумму элементов в строках двумерного массива Изображения 0

	30.11.2011, 01:37

Найти минимальную сумму элементов в строках двумерного массива

Решение