Автор: Даниил 18.06.2008 23:17
Ребят, Всем Добрый Вечер!
Мне срочно нужно решить вот эту штуку:
Тема Массивы
В квадратном массиве В (3,3) найти сумму наибольших значений элементов его строк.
И пояснить хоть как то чтобы я преподу мог хоть что то прокумекать как и что я решал и откуда брал )
Братцы выручайте пожалуйста!!!
Автор: kosyak 19.06.2008 0:15
Ну может и не самый оптимальный вариант, но все же...
Код
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.