Форум программистов, компьютерный форум, киберфорум
Наши страницы

С Паскаля на С++ - C++

Войти
Регистрация
Восстановить пароль
Другие темы раздела
C++ определить количество слов http://www.cyberforum.ru/cpp-beginners/thread904211.html
Дано предложение, определить количество слов в нем.
C++ Составить программу для извлечения точного квадратного корня из n-разрядного числа Составить программу для извлечения точного квадратного корня из n-разрядного числа(n>40) http://www.cyberforum.ru/cpp-beginners/thread904210.html
C++ Подсчитать количество цифровых символов в последовательности
В последовательности из N символов, которые вводятся подсчитать количество цифровых символов(0..9).
C++ Из исходной строки символов удалить символы отличные от русских букв и пробелов
С исходной строки символов удалить символы отличные от русских букв и пробелов. укр.(З заданої стрічки символів видалити символи, які відмінні від російських букв та пробілів.)
C++ Игра "Спички" на С++ http://www.cyberforum.ru/cpp-beginners/thread904190.html
Пусть дана кучка, первоначально содержащая множество спичек, двое играющих поочередно берут по нескольку спичек: не менее одной и не более десяти. Проигрывает игрок, взявший последнюю спичку. В...
C++ Дан текст, содержащий от 2 до 30 слов, в каждом из которых от 2 до 10 латинских букв. Напечатать все слова, отличные от последнего слова дан текст, содержащий от 2 до 30 слов, в каждом из которых от 2 до 10 латинских букв, между соседними словами - не менее одного пробела. Напечатать все слова, отличные от последнего слова,... подробнее

Показать сообщение отдельно
PIVEHb
0 / 0 / 0
Регистрация: 03.06.2013
Сообщений: 23

С Паскаля на С++ - C++

17.06.2013, 12:53. Просмотров 297. Ответов 3
Метки (Все метки)

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
program Matrix25;
var
MAx,Sum,num,j,i,M,N:integer;
a: array [1..10,1..10] of integer;
begin
// Ввод данных 
writeln('Введите числа M (M<=10) и N (N<=10)');
 read(M); readln(N);
writeln('Введите по ',N,' элементов ');
for i:=1 to M do begin
write(i,' строки : ');
for j:=1 to N do read(a[i,j]);
end;
// Решение 
writeln;
writeln('Ответ');
for j:=1 to N do begin Max:=Max+a[1,J]; end;
num:=1;
for i:=2 to M do
begin
Sum:=0;
for j:=1 to N do
begin
Sum:=sum+a[I,J];
end;
if Sum> max then begin max:=sum; num:=i; end;
end;
// Ответ 
writeln('номер строки с наибольшей суммой элементов ',num);
writeln('суммa элементов ',max);
end.
 Комментарий модератора 
Пользуйтесь тегами форматирования кода.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
 
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru