Поделитесь своими знаниями, ответьте на вопрос:
Написать программу с организацией ввода-вывода с текстовых файлов. в каждой задается квадратная матрица nxn. программа должна осуществлять ввод и печать исходной матрицы и возможно, дополнительных данных, произвести необходимые действия и напечатать результаты. найти в каждом четном по номеру столбце матрицы максимальный элемент и вычислить произведение этих элементов.
var a: array[1..10,1..10]of integer; i,j,k,s: integer; beginfor i: =1 to 10 do for j: =1 to 10 do a[i,j]: =random(9)+1; for i: =1 to 10 do begin for j: =1 to 10 do write(a[i,j],' '); if j=10 then writeln; end; s: =1; for i: =2 to 10 do begin k: =a[i,1]; for j: =2 to 10 do beginif i mod 2 = 0 then if a[i,j]> k then k: =a[i,j]; if (j=10) and (i mod 2=0) then s: =s*k; end; end;
writeln(s); end.