Теория чисел и двумерные массивы, Задачи Опции

[Студентик13]

Надо решить две задачи. Очень нужно. Заранее говорю всем спасибо.
1.Ввести шестизначное число. Определить, кратное ли это число 9. ( По признаку делимости на 9: число делится на 9, если сумма цифр делится на 9).
2.Дан двухмерный массив. Найти
а) наибольшее из значений элементов первой и последней строки;
б) сумму наибольших значений элементов ее строк;
в) строку с наибольшей и наименьшей суммой элементов.
Вывести на печать найденные строки и суммы их элементов.

[Ozzя]

Код

var
b,a,sum:integer;
begin
read(a);
sum:=0;
while a >0 do
begin
  b:= a mod 10;

  sum:=sum+b;
  a:= a div 10;
end;
if sum mod 9=0 then
write( sum,'Delitsya')
else
write( sum,'Ne Delitsya');
end.

Сообщение отредактировано: Ozzя - 11.01.2006 17:20