Program Matr22;
Uses Crt;
type matrix=array[1..5,1..5] of integer;
var m:matrix;
n:byte;
procedure Auto;
var i,j:integer;
begin
n:=0;
randomize;
for i:=1 to 5 do
begin
for j:=1 to 5 do
begin
m[i,j]:=random(50)+5;
if (m[i,j]=22) then n:=n+1;
end;
end;
end;
procedure PrintMatrix(mas:matrix;);
var j,k:integer;
begin
for k:=1 to 5 do
begin
for j:=1 to 5 do
begin
write(mas[k,j]:3);
end;
writeln;
end;
end;
begin
clrscr;
Auto;
PrintMatrix(m);
writeln;
writeln('Количество элементов равных 22:',n);
readkey;
end.
1)
Program CircleS;
Uses Crt;
const pi=3.14;
var S,r:real;
begin
Clrscr;
write('Введите радиус r:');
readln(r);
S:=pi*(r*r);
writeln('Площадь круга равна:',S);
end.
2)
Program TriangleS;
Uses Crt;
var S,a,h:real;
begin
Clrscr;
write('Введите высоту треугольника h:');
readln(h);
write(' Введите сторону треугольника а:');
readln(a);
S:=0.5*a*h;
writeln('Площадь треугольника равна:',S);
end.
3)
Program TrapezoidS;
Uses Crt;
var S,a,b,h:real;
begin
Clrscr;
write('Введите высоту трапеции h:');
readln(h);
write(' Введите сторону трапеции а:');
readln(a);
write(' Введите сторону трапеции b:');
readln(b);
S:=0.5*(a+b)*h;
writeln('Площадь трапеции равна:',S);
end.
