Var
i: integer;
a,V,s: real;
begin
writeln ('введи длину ребра куба');
read (a);
V:=a*a*a;
writeln ('объем куба=',v);
s:=6*a*a;
writeln ('площадь боковой поверхности=',s);
end.
var
a:array[1..10] of integer;
b:array[1..10] of integer;
i:integer;
begin
for i:=1 to 10 do
begin
read(b[i]);
a[i]:=b[i]*45
end;
for i:=1 to 9 do
write(a[i],' ');
write(a[10])
end.
Интернет-это всемирно известная сеть.В ней можно поиграть,почитать,поучится и и.д.
Program p1;
const N=10;
var i,max,sum:integer;
a:array[1..10] of integer;
begin
randomize;
max:=0;
sum:=0;
for i:=1 to N do a[i]:=1+random(10);
for i:=1 to N do write(a[i],' ');
for i:=1 to N do
if (a[i]>max) then max:=a[i];
writeln;
writeln('Максимальное число: ',max);
for i:=1 to N do
if(a[i]=max) then sum:=sum+1;
write('Количество максимальных чисел: ',sum);
end.