A. большая электронная матрица
ограничение времени 1 секунда
ограничение памяти 32mb
ввод matrix.in
вывод matrix.out
фирма по производству новых многоэлементных электронных матриц запускает новую линию, комплектуя ее узлом проверки готовой матрицы. узел засвечивает матрицу, подает напряжение на ее ячейки и считывает показания коэффициентов преломления каждой ячейки в виде цифр от 0 до 9. из этих показаний формируется таблица и записывается в файл. для оценки качества матрицы используется суммы коэффициентов преломления по каждой строке матрицы, а также количество сумм с максимальным значением из всех сумм коэффициентов по данной матрице. напишите программу, определяющую требуемые характеристики матрицы по имеющейся таблице коэффициентов преломления.
формат ввода
в первой строке входного файла matrix.in записано два натуральных числа, не превышающих 1024 - количество строк прямоугольной матрицы и количество ячеек в каждой строке. в последующих строках записаны без пробелов коэффициенты преломления.
формат вывода
в файл matrix.out следует вывести суммы коэффициентов преломления по одному в строке. последней строкой файла следует вывести количество сумм с максимальным значением из всех сумм коэффициентов по данной матрице. таким образом, в файле должно быть записано столько чисел, из скольких строк состоит электронная матрица, плюс одно число.
пример
ввод вывод
5 5
73022
95308
59282
55332
21797
14
25
26
18
26
2
//Специально для
//Все данные вводятся с клавиатуры
program Sravnenie;
var
a, b: integer; // Стороны 1-ого прямоугольника
d, c: integer;// Стороны 2-ого прямоугольника
S1, S2: integer; // Площадь
buf: integer;// Если площадь 1-ого будет меньше 2-ого
//поменяем местами,что бы избавиться от минуса
razn: integer; // Разница 2-ух площадей
begin
Write('Введите стороны 1-ого прямоугольника: ');
Readln(a, b);
Write('Введите стороны 2-ого прямоугольника: ');
Readln(d, c);
S1 := a * b; //Площадь 1-ого
S2 := d * c; //Площадь 2-ого
if S1 < S2 then
begin
buf := S1;
S1 := S2;
S2 := buf;
end;
razn := S1 - S2;
Writeln('Площадь 1-ого больше площади 2-ого в - ',razn, ' раз');
end.