Const n=6; var a:array[1..n,1..n]of integer; b:array[1..n]of integer; i,j:integer; begin for i:=1 to n do begin for j:=1 to n do begin a[i,j]:=random(100); write(a[i,j]:4); end; b[i]:=a[i,i]; writeln; end; writeln; for i:=1 to n do write(b[i]:4); end. вариант главной и побочной диагонали в одномерный массив const n=6; var a:array[1..n,1..n]of integer; b:array[1..n*2]of integer; i,j,k:integer; begin writeln; for i:=1 to n do begin for j:=1 to n do begin a[i,j]:=random(100); write(a[i,j]:4); end; k:=k+1; b[k]:=a[i,i]; k:=k+1; b[k]:=a[i,n+1-i]; writeln; end; writeln; for i:=1 to n*2 do write(b[i]:4); end.
Var a,b,c,p,s:real; m:integer; begin repeat writeln('a,b,c &'); readln(a,b,c); {Вводим стороны до тех пор пока не выполнится условие сущ треуг} until (a<b+c)and(b<a+c)and(c<a+b); writeln('площадь - введите 1 или периметр -2 ?'); {выбираем что считать, если площадь, то вводим 1, периметр - 2} readln(m); case m of 1: begin p:=(a+b+c)/2; writeln('S = ',sqrt(p*(p-a)*(p-b)*(p-c))); {вывод площади} end; 2:writeln(a+b+c); {вывод периметра} end; end. программа 2 Нахождение суммы элементов одномерного массива const n=10; Var a:array[1..n]of integer; i,s:integer; begin for i:=1 to n do begin a[i]:=random(100); {заполнение массива случайными числами [0.100)} write(a[i]:4); {выводим на экран массив} s:=s+a[i]; {считаем сумму} end; writeln; writeln('S= ',s); {выводим сумму} end.
n=6;
var
a:array[1..n,1..n]of integer;
b:array[1..n]of integer;
i,j:integer;
begin
for i:=1 to n do
begin
for j:=1 to n do
begin
a[i,j]:=random(100);
write(a[i,j]:4);
end;
b[i]:=a[i,i];
writeln;
end;
writeln;
for i:=1 to n do
write(b[i]:4);
end.
вариант главной и побочной диагонали в одномерный массив
const
n=6;
var
a:array[1..n,1..n]of integer;
b:array[1..n*2]of integer;
i,j,k:integer;
begin
writeln;
for i:=1 to n do
begin
for j:=1 to n do
begin
a[i,j]:=random(100);
write(a[i,j]:4);
end;
k:=k+1;
b[k]:=a[i,i];
k:=k+1;
b[k]:=a[i,n+1-i];
writeln;
end;
writeln;
for i:=1 to n*2 do
write(b[i]:4);
end.
a,b,c,p,s:real;
m:integer;
begin
repeat
writeln('a,b,c &');
readln(a,b,c); {Вводим стороны до тех пор пока не выполнится условие сущ треуг}
until (a<b+c)and(b<a+c)and(c<a+b);
writeln('площадь - введите 1 или периметр -2 ?');
{выбираем что считать, если площадь, то вводим 1, периметр - 2}
readln(m);
case m of
1:
begin
p:=(a+b+c)/2;
writeln('S = ',sqrt(p*(p-a)*(p-b)*(p-c))); {вывод площади}
end;
2:writeln(a+b+c); {вывод периметра}
end;
end.
программа 2 Нахождение суммы элементов одномерного массива
const
n=10;
Var
a:array[1..n]of integer;
i,s:integer;
begin
for i:=1 to n do
begin
a[i]:=random(100); {заполнение массива случайными числами [0.100)}
write(a[i]:4); {выводим на экран массив}
s:=s+a[i]; {считаем сумму}
end;
writeln;
writeln('S= ',s); {выводим сумму}
end.