Вывести на экран строку, сумма элементов которой максимальна

@Наталия Чечко · Регистрация: 12.10.2010

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

1) Вывести на экран строку, сумма элементов которой максимальна. Формат вывода:
Строка 2: 3 5 8 9 8

Зарание благодарю)

@DenisKh · 09.11.2010, 19:09

Вот решение.

Pascal

program maximum;
const n=5;
var a:array[1..n,1..n] of integer;
    i,j,max1,max,s:integer;
begin
for i:=1 to n do
  for j:=1 to n do
  read(a[i,j]);
for i:=1 to n do
    begin
    for j:=1 to n do
    write(a[i,j]:4);
    writeln;
    end;
for i:=1 to n do
    begin
    for j:=1 to n do
    max1:=max1+a[i,j];
    if max<max1 then
                begin
                max:=max1;
                s:=i;
                max1:=0;
                end;
    end;
write('Строка ',s,':');
for j:=1 to n do
write(a[s,j]:4);
end.

Надеюсь помог

@Наталия Чечко 0 / 0 / 0 Регистрация: 12.10.2010 Сообщений: 5
		1
	Вывести на экран строку, сумма элементов которой максимальна 09.11.2010, 17:57. Показов 1290. Ответов 1 Метки нет (Все метки) 1) Вывести на экран строку, сумма элементов которой максимальна. Формат вывода: Строка 2: 3 5 8 9 8 Зарание благодарю) 0

	09.11.2010, 19:09

Опции темы

Вывести на экран строку, сумма элементов которой максимальна

Решение