Написать программу с организацией ввода-вывода с текстовых файлов. в каждой задается квадратная матрица nxn. программа должна осуществлять ввод и печать исходной матрицы и возможно, дополнительных данных, произвести необходимые действия и напечатать результаты. найти в каждом четном по номеру столбце матрицы максимальный элемент и вычислить произведение этих элементов.
chepelenkosivun
1
19.03.2019 05:40
2
Другие вопросы по теме Информатика
Алиса123464
09.04.2020 14:15
Arina0903
09.04.2020 14:15
AnnaLyarskaya
10.12.2020 05:50
Серыйпрайм
10.12.2020 05:48
anastasiyanast29
04.01.2021 15:45
bayarma58
03.08.2019 13:10
RonnieHolmes
03.08.2019 13:10
1303081216
29.05.2019 02:40
masaberegovenko
29.05.2019 02:40
Популярные вопросы
- С собственная скорость катера равна 15,3/5 км ч скорость течения реки 1,...
3 - Современным состоянием речи, тем, что с нею происходит, многие: в первую...
3 - Найдите длину окружности вписанной в правильный треугольник со стороной...
1 - Изи : пуля массой 8 граммов вылетела из ружья вертикально вверх со скоростью...
1 - Напишите характеристику пугачева из капитанской дочки по плану...
2 - Яне понимаю как это решить, а вообще должно получится либо 2а в восьмой...
1 - Найди, какие из суждений верны. а. ферментативное расщепление белков до...
2 - Все которые отмечены галочкой(желательно). а 2 точно.. заранее большое....
3 - 1)вычислите: 72 *(19 двацать четвертых-7 двенадцатых + 3 восьмых) 2)найдите...
2 - Подскажите кто это? ,и что в данном нужно делать? ...
1
var a:array[1..10,1..10]of integer;
i,j,k,s:integer;
begin
for 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 begin
if 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.