Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг: Рейтинг темы: голосов - 30, средняя оценка - 4.80
JulUlibina
4 / 4 / 2
Регистрация: 08.11.2010
Сообщений: 87
#1

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

12.04.2011, 20:55. Просмотров 4799. Ответов 1
Метки нет (Все метки)

Здравствуйте)
Подскажите пожалуйста)

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

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
program z;
const n=5;m=8;
var A: array [1..n,1..m] of integer; 
      i,j,s,s1,min :integer;
   begin
   writeln ('Матрица A');
   for i:=1 to n do
   for j:=1 to m do
   a[i,j]:=random(21)-10;
   for i:=1 to N do begin
   for j:=1 to M do
   write (a[i,j]:4);
    writeln;
     end;
     begin
    s1:=0; 
    min := 1; 
    s := 10; 
    s1 := s1 + a[i, j];
    end;
     if s1 > s then begin
     min := i;
     s := s1;
     end;
     writeln;
   
     
  write(min, ':'); 
  for j:=1 to n do
   write(a[min, j]:3);
  readln;
end.
Вот в середине программы запуталась, полная ерунда у меня выходила...подскажите как она должна писаться...

Заранее спасибо!
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
12.04.2011, 20:55
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Вывести на экран строку, сумма элементов которой максимальна (Pascal ABC):

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

Матрица. Вывести на экран строку, сумма элементов которой максимальна
Заполнить матрицу из 8 строк и 5 столбцов случайными числами в интервале и...

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

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

С помощью процедуры вывести строку, сумма элементов которой максимальна
С помощью процедуры вывести строку, сумма элементов которой...

Найти строку матрицы, в которой сумма модулей элементов максимальна
Дан двумерный массив. Найти строку в которой сумма модулей элементов...

1
EvilScream
23 / 22 / 29
Регистрация: 16.12.2010
Сообщений: 71
13.04.2011, 17:09 #2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
program z;
uses crt;
const n=5;m=8;
var A: array [1..n,1..m] of integer;
      i,j,s,k,summax,sum :integer;
begin
clrscr;
   writeln ('ГЊГ*òðèöГ* A');
for i:=1 to n do
for j:=1 to m do
   a[i,j]:=random(21)-10;
for i:=1 to N do begin
for j:=1 to M do
   write (a[i,j]:4);
    writeln;
end;
begin
 summax:=a[1,1];
for i:= 1 to n do
begin
 sum:=0;
for j:= 1 to m do
 sum:=sum+a[i,j];
 if  sum>summax then
begin
 summax:=sum;
 k:=i;
end;
end;
end;
writeln(' ----------');
for j:=1 to m do
write(a[k,j]:4);
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
13.04.2011, 17:09
Привет! Вот еще темы с решениями:

Даны три целые матрицы размера N´N. Вывести ту из них ту,у которой сумма диагональных элементов максимальна
Здравствуйте! Я написал код для вывода 3-х матриц. А вот как вывести матрицу...

В матрице найти квадратную подматрицу, сумма элементов которой максимальна.
4.Дана матрица а(n,m). Найдите в ней квадратную под¬матрицу, сумма элементов...

Вывести на экран ту матрицу, у которой след (сумма элементов главной диагонали) меньше.
помогите ребята.Pascal Даны две квадратные матрицы. Вывести на экран ту из...

Написать программу, которая определяет номер столбца квадратной матрицы, сумма элементов которой максимальна
Написать программу, которая определяет номер столбца квадратной матрицы, сумма...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru