program mas2_proiz_nech_max_dop_diag;
const n=5;
var
a:array[1..n,1..n]of integer;
i,j,p,s,m:integer;
begin
p:=1;
s:=0;
m:=-1;
for i:=1 to n do
for j:=1 to n do
a[i,j]:=random(100);
write(a[i,j]:4,' ');
//произведение нечетных элементов
if a[i,j] mod 2<>0 then
p:=p*a[i,j];
//сумма под главной диагональю
if i>j then
s:=s+a[i,j];
//максимальный на дополнительной диагонали
if (i=n+1-j)and(a[i,j]>m) then
m:=a[i,j];
end;
writeln;
writeln('Произведение нечетных элементов 》 ',p);
writeln('Сумма под главной диагональю 》 ',s);
write('Максимальный на дополнительной диагонали 》 ',m)
end.
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
program mas2_proiz_nech_max_dop_diag;
const n=5;
var
a:array[1..n,1..n]of integer;
i,j,p,s,m:integer;
begin
p:=1;
s:=0;
m:=-1;
for i:=1 to n do
begin
for j:=1 to n do
begin
a[i,j]:=random(100);
write(a[i,j]:4,' ');
//произведение нечетных элементов
if a[i,j] mod 2<>0 then
p:=p*a[i,j];
//сумма под главной диагональю
if i>j then
s:=s+a[i,j];
//максимальный на дополнительной диагонали
if (i=n+1-j)and(a[i,j]>m) then
m:=a[i,j];
end;
writeln;
end;
writeln('Произведение нечетных элементов 》 ',p);
writeln('Сумма под главной диагональю 》 ',s);
write('Максимальный на дополнительной диагонали 》 ',m)
end.