const
n=5;
type
st = array [1..n] of integer;
var
a:array [1..n] of st;
b:st;
i,j,maxp:integer;
begin
for i:=1 to n do
b[i]:=1;
for j:=1 to n do
a[j,i]:=random(20)+1;
b[i]:=b[i]*a[j,i];
end;
maxp:=0;
write(a[i,j]:4);
if i+j>n+1 then
if a[i,j]>maxp then
maxp:=a[i,j];
writeln;
writeln('Максимальное под побочной диагональю: ',maxp);
for i:= 1 to n do
write(b[i],' ');
end.
<h1>Устройства компьютера</h1>
<p>
Настольный компьютер обычно состоит из системного блока и подключенных к нему внешних устройств
</p>
<h1>Системный блок</h1>
В системной блоке расположены
<ol>
<li>Материнская плата</li>
<li>Процессор</li>
<li>Внутренняя память</li>
<li>Винчестер</li>
<li>Блок питания</li>
</ol>
<h1>
Внешние устройства
</h1>
Внешние устройства можно разделить на группы
<ul>
<li>Устройство ввода - через них человек вводит информацию в компьютер
<li>графический планшет</li>
<li>микрофон</li>
<li>сканер</li>
</ul>
</li>
...
Дальше нет примера =(
const
n=5;
type
st = array [1..n] of integer;
var
a:array [1..n] of st;
b:st;
i,j,maxp:integer;
begin
for i:=1 to n do
begin
b[i]:=1;
for j:=1 to n do
begin
a[j,i]:=random(20)+1;
b[i]:=b[i]*a[j,i];
end;
end;
maxp:=0;
for i:=1 to n do
begin
for j:=1 to n do
begin
write(a[i,j]:4);
if i+j>n+1 then
if a[i,j]>maxp then
begin
maxp:=a[i,j];
end;
end;
writeln;
end;
writeln;
writeln('Максимальное под побочной диагональю: ',maxp);
for i:= 1 to n do
write(b[i],' ');
end.
<h1>Устройства компьютера</h1>
<p>
Настольный компьютер обычно состоит из системного блока и подключенных к нему внешних устройств
</p>
<h1>Системный блок</h1>
<p>
В системной блоке расположены
</p>
<ol>
<li>Материнская плата</li>
<li>Процессор</li>
<li>Внутренняя память</li>
<li>Винчестер</li>
<li>Блок питания</li>
</ol>
<h1>
Внешние устройства
</h1>
<p>
Внешние устройства можно разделить на группы
</p>
<ul>
<li>Устройство ввода - через них человек вводит информацию в компьютер
<ul>
<li>графический планшет</li>
<li>микрофон</li>
<li>сканер</li>
</ul>
</li>
</ul>
...
Дальше нет примера =(