Var i,j,sum,num:integer;
result:real;
a:array[1..10,1..10] of integer;
begin
sum:=0;
num:=0;
randomize;
for i:=1 to 10 do
begin
for j:=1 to 10 do
begin
a[i,j]:=-20+random(40);
write(a[i,j]:5);
end;
writeln;
end;
for i:=1 to 10 do
begin
for j:=1 to 10 do
begin
if a[i,j]<0 then
begin
sum:=sum+a[i,j];
num:=num+1;
end;
end;
end;
writeln;
result:=sum/num;
write(result:0:2);
end.
Uses crt;
const n=20;
var i,min:integer;
a:array [1..n] of integer;
begin
randomize;
for i:=1 to n do
a[i]:= random(2001)-1000; {read (a[i])}{ручной ввод чисел}
min:=1001;
for i:=1 to n do
if (a[i]>0) and (a[i]mod 3=0) and (odd(a[i])) and (a[i]<min) then
min:=a[i];
if min<>1001 then
writeln(min)
else
writeln('нет чисел удовлетворяющих заданному условию');
end.
Var c:real
begin
readln(c);
c:=c*2;
writeln(c);
end.
Program sasaylalka;
var a,b:integer;
P,d:real;
begin
writeln('Введи стороны');
readln(a,b);
P:=2*(a+b);
writeln('Периметр равен ',P);
d:=sqrt(sqr(a)+sqr(b));
writeln('Диагональ равна ',d);
readln;
end.