Var a:array[1..10]of real;
i:integer;
begin
for i:=1 to 10 do begin
a[i]:=random(10,100)/10;
write(a[i]:6);
end;
writeln();
for i:=1 to 10 do
write(sqr(a[i]):6);
<span>end.</span>
Количество лепестков количество листьев серединка ____________________________________________________________________
признаки признаки
4 лепестка,6,7. 3 лепестка,4,6. красная,фиолетовая,
синяя,жёлтая
7)Руслан
8)друга ищи,а найдешь-береги
старый друг лучше новых двух
Var n, s : integer;
begin
s := 0;
while 2 * 2 <> 5 do begin
readln(n);
if n < 0 then break;
if n > 100 then s := s + 1;
end;
writeln(s);
end.