Помощь - Поиск - Пользователи - Календарь
Полная версия: несложная задача на массивы
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
Даниил
Ребят, Всем Добрый Вечер!
Мне срочно нужно решить вот эту штуку:
Тема Массивы
В квадратном массиве В (3,3) найти сумму наибольших значений элементов его строк.
И пояснить хоть как то чтобы я преподу мог хоть что то прокумекать как и что я решал и откуда брал )
Братцы выручайте пожалуйста!!!
kosyak
Ну может и не самый оптимальный вариант, но все же...

Код

program pr;
var a: array [1..3,1..3] of real;{Исходный массив}
    max: array [1..3] of real;   {Массив максимальных элементов}
    i,j: integer;
begin
     {Вводим элементы массива и заодно определяем максимальный}
     for i:=1 to 3 do
         for j:=1 to 3 do
             begin
                  write('a[',i,',',j,']= ');
                  readln(a[i,j]);
                  if j=1 then max[i]:=a[i,1]
                   else
                    if a[i,j]>max[i] then max[i]:=a[i,j];
             end;
     writeln('sum=',max[1]+max[2]+max[3]);
     readln;
end.
Гость
Спасибо огромное
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.