1 задача
var a, b, s, i, k:integer;
z:array[1..10] of integer;
begin
s:=1;
For i:=1 to 10 do
begin
z[i]:=random(16)-10;
if z[i]<0 then
begin
k:=sqr(z[i]);
s:=s*k;
end;
end;
For i:=1 to 10 do
begin
write (z[i], ' ');
end;
writeln ();
writeln ('Произведение квадратов равно ', s);
<span>end.</span>
Слушай сама головой работай . Мозги тебя для чего ? Давай сама
const pi = 3.14159265358;
var
m,n : integer;
begin
readln(m,n);
if ((m/n - pi) < (n/m - pi)) then
writeln (2 * m)
else
writeln(2*n);
end.
Возможно туплю, ибо поздно уже. Но у меня получилось так
Цветы, -
фиалки,
фрукты, -
груши,
овощи, -
морковь,
буквы, -
«У»,
цифры, -
два,
орудие, -
топор,
прибор, -
микроскоп,
подросток, - школьник,
дом, -
деревянный дом,
день, - зимний день.
лодка, -
резиновая лодка,
животное, -
тюлень,
насекомое, -
оса,
металл, -
олово,
орган, - почки,
военный, - сержант,