Прошу помощи - Форум
Пятница, 09.12.2016, 06:51
Задачи по информатике
Главная | Регистрация | Вход Приветствую Вас Гость | RSS
[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
Страница 1 из 11
Модератор форума: ignorer, KOT_B_MEIIIKE, PASCAL26, atvrider 
Форум » Решение задач по информатике » Задачи по программированию + блок-схемы » Прошу помощи (написать программу на Турбо паскале)
Прошу помощи
zreshkaДата: Понедельник, 19.01.2009, 01:44 | Сообщение # 1
Сержант
Группа: Участник
Сообщений: 7
[ 0 ]
Статус: Offline
Задача:
Дана целочисленная матрица А размером MxN,где M,N-заданные натуральные числа,а все элементы матрицы различные.Найти сумму S=A(1)*A(2)+A(2)*A(3)+...A(N-1)*A(N),где A(i)-максимальный элемент в i-ой строке матрицы.

Не могу найти сумму,не получается

var
A:array[1..100,1..100] of integer;
MAXA:array[1..100] of integer;
i,j,n,m: integer;
MAX,s:integer;
begin
writeln('ВВЕДИТЕ РАЗМЕР МАТРИЦЫ:');
writeln(' N= КОЛИЧЕСТВО СТРОК,А M=КОЛИЧЕСТВО СТОЛБЦОВ') ;
write('N=');
readln(N);
write('M=');
readln(M);
for i:=1 to N do
for j:=1 to M do
begin
write('a[',i,',',j,']=');
readln(a[i,j]);
end;
for i:=1 to n do
begin
max:=a[1,1];
for j:=2 to m do
if a[i,j]>max then max:=a[i,j];
maxA[i]:=max;
end;
writeln('Максимальные элементы строк:');
for i:=1 to n do
write(maxA[i],' ');
end;

 
zadachkiДата: Понедельник, 19.01.2009, 13:28 | Сообщение # 2
Admin
Группа: Администраторы
Сообщений: 116
[ 9 ]
Статус: Offline
s:=0;
for i:=1 to n-1 do
begin
s:=s+maxA[i]*maxA[i+1];
end;
writeln(s);
 
zreshkaДата: Понедельник, 19.01.2009, 16:23 | Сообщение # 3
Сержант
Группа: Участник
Сообщений: 7
[ 0 ]
Статус: Offline
Ура!Все получилось , biggrin огромное вам спасибоjavascript://

Сообщение отредактировал zreshka - Понедельник, 19.01.2009, 18:46
 
Форум » Решение задач по информатике » Задачи по программированию + блок-схемы » Прошу помощи (написать программу на Турбо паскале)
Страница 1 из 11
Поиск:

Copyright MyCorp © 2016