Program task1;
const
n = 10;
var
a :array [1..n] of real;
i, j :integer;
min, k :real;
begin
for i:= 1 to n do
readln(a[i]);
min:= a[1];
for i:= 1 to n do
if a[i] < min then
begin
min:= a[i];
j:= i;
end;
k:= a[n];
a[n]:= a[j];
a[j]:= k;
end.
program task2;
const
n = 10;
var
a :array [1..n] of integer;
i, j, kol :integer;
begin
for i:= 1 to n do
readln(a[i]);
kol:= 0;
for i:= 1 to n do
if a[i] mod 3 = 0 then
inc(kol);
for i:= 1 to n do
if a[i] = kol then
begin
j:= i;
break;
end;
writeln(j);
end.
1)
var x, y, z, P, S: integer;
begin
readln(x, y, z);
P := x * y * z;
S := x + y + z;
writeln(P);
writeln(S);
end.
2)
var a, b: integer; k: real;
begin
readln(a, b);
K := sqrt(sqr(a)+sqr(b))+((a+b)/2);
writeln(K);
end.
<span>Больше для жителей планеты Принтер на 10 бит.</span>
1. планета Земля наряду с другими планетами, вращающимися вокруг Солнца, входит в систему "Солнечная система"
2. В систему "Земля" входят такие подсистемы, как, например, гидросфера Земли, биосфера Земли, атмосфера Земли
А) в нашем классе 25 девочек
б) комары - животные
в) "2" - знак