Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Задачи _ Помогите переделать программу

Автор: MaksIMka-LivE 6.06.2006 1:29

Помогите переделать программу, информатичка задала сделать программу нахождения суммы двух матриц, где x и y максимальные элементы главных диагоналей - ну я сделал, но когда пришол показывать оказалось, что надо сделать было с процедурами и гибким вводом. Меня как раз не было на той лекции. Попробывал сам , но времени сейчас в обрез, да и не нашел нигде как делать - началась сессия. Если кто может помогите буду благодарен. И если можно дайте ссылочку на гибкий ввод.


program summax;
uses crt;
var a,b: array[1..10,1..10] of integer;
i,j,k,l: integer;

begin
clrscr;
randomize;
for i:=1 to 10 do
for j:=1 to 10 do
begin
a[i,j]:=random(60);
a[i,j]:=a[i,j]-30;
b[i,j]:=random(40);
b[i,j]:=b[i,j]-20;
end;
writeln('Матрица А');
for i:=1 to 10 do
begin
for j:=1 to 10 do
write(a[i,j]:4);
writeln;
end;
writeln('Матрица В');
for i:=1 to 10 do
begin
for j:=1 to 10 do
write(b[i,j]:4);
writeln;
end;
k:=a[1,1];
l:=b[1,1];
for i:=2 to 10 do
begin
if a[i,i]>k then k:=a[i,i];
if b[i,i]>l then l:=b[i,i];
end;
writeln('X= ',k:4,' Y= ',l:4);
writeln('Z=X+Y= ',k+l:5);
readln;
end.