Составить Паскаль-программу, производящую обработку квадратной матрицы Опции

[nice]

Составить Паскаль-программу, производящую обработку квадратной матрицы по-рядка NxN, из целых положительных чисел, вводимой с клавиатуры. Тестирование провести для пакета тестов из двух-трех матриц различного порядка.Умножение строки с минимальным элементом матрицы на столбец с максимальным элементом;


можете helllllppppp??

[nice]

program matrix;
const N = 4;
var i,j:integer;
max, min:integer;
max_i, min_j : integer;
m:array[1..N,1..N] of integer;
sum : integer;
begin
sum := 0;
max := -1;
min := 9999;
writeln('input matrix:');
for i:=1 to N do begin
for j:=1 to N do begin
write('intput m[' + IntToStr(i) + ',' + IntToStr(j) + ': ');
readln(m[i,j]) ;
if max < m[i,j] then begin
max_i := i; max:=m[i,j];
end;
if min > m[i,j] then begin
min_j := j; min:=m[i,j];
end;
end;
end;
writeln('max matrix element: ' + IntToStr(max) + ' in ' + IntToStr(max_i) + ' row');
writeln('min matrix element: ' + IntToStr(min) + ' in ' + IntToStr(min_j) + ' col');
for i:=1 to N do
inc(sum,m[max_i,i]*m[i,max_j]);

writeln('result: ' + IntToStr(sum));

end.



ему не нравится в этой строчке write('intput m[' + IntToStr(i) + ',' + IntToStr(j) + ': ');
в слове IntToStr(i) буква I

Сообщение отредактировано: nice - 31.05.2009 13:00