Решить в паскале пожалуйста быстрее
Ответы на вопрос
Ответ:
1.
var a:array [1..8] of integer;
i,s:integer;
begin
s:=0;
write('Массив: ');
for i:=1 to 8 do
begin
a[i]:=random(21)-10;
if (a[i] mod 2 <> 0) and (a[i] > 0) then s:=s+a[i];
write(a[i],' ')
end;
writeln;
writeln('Сумма нечётных положительных элементов равна ',s)
end.
2.
const n=7;
var a:array [1..n,1..n] of integer;
b,c:array [1..n] of integer;
i,j,mi,mj:integer;
begin
writeln('Массив: ');
for i:=1 to n do
begin
for j:=1 to n do
begin
a[i,j]:=random(90)+10;
write(a[i,j]:4)
end;
writeln;
end;
writeln;
mi:=n;
mj:=n;
for i:=1 to n do
begin
for j:=1 to n do
if i + j > n + 1 then
if a[i,j] > a[mi,mj] then
begin
mi:=i;
mj:=j;
end
end;
writeln('Максимальный элемент среди элементов, расположенных ниже побочной диагонали ',a[mi,mj]);
writeln;
for i:=1 to n do b[i]:= a[mi,i];
for i:=1 to n do c[i]:=a[i,mj];
for i:=1 to n do
begin
if (i >= mi) and (i<mj) then a[mi,i]:=c[i+1]
else a[mi,i]:=c[i]
end;
for i:=1 to n do a[i,mj]:=b[i];
writeln('Массив: ');
for i:=1 to n do
begin
for j:=1 to n do
begin
write(a[i,j]:4)
end;
writeln;
end;
writeln;
end.