Рабочий лист 11. Опыление Термины
Найди в филворде спрятанные слова. Раскрась их цветными
карандашами.
A
M
b
K
a
K
T
K
M
B
a
у
А
Ж
В
Ж
M
мит
у
K
о
HO
к
Ы
А
ч
Ч
а
ц
ъ
и
M
e
у
у
M
и
M
й
K
н |
H
a
ль
В
о
ы
K
у
а
и
Ц
3
B
r:
зь п
к
3
B
а
у
В
P
M
Н
ю
H
он
м
A
B
к
C
a
щ
K
а и
о
т
о
с
у
ч
м
в с
ble
Ыр
Н
В
ъ
B
и
K
ъ
M
у
к с
В
M
ок
ь та ж
H
Ы
A
а
b
U
и с.
a
В
ъ
C
K
о
n
b
в н къ
M
о
M
B
a
с
b
Н
b
с
е
M
к
и
с
с
M
ф
у
й
о
B
и
щ
B
ц
Слова для справок: завязь, опыление, пыльник, цветок,ТЫAbца,
венчик, чашелистик, семя.
Составь предложения с отгаданными словами.​

Program egor4774442;
uses crt;
const n=9;
var
  e:array[1..n] of integer;
  min, nom,i: integer;
begin
  writeln('*** alphaues is thinking... ***');
  writeln('***          OK             ***');
  randomize;
  for i:=1 to n do
    e[i]:=random(100)-50;
  min:=e[i];
  nom:=1;
  writeln('Элементы массива:');
  for i:=1 to n do
    begin
      if (e[i]<min) and (e[i]>0) then
        begin
          min:=e[i];
          nom:=i;
        end;
      write (e[i]:5);
    end;
  writeln();
  writeln('Наименьший положительный элемент массива:  ',min);
  writeln('Его номер:  ',nom);
end.

Program sashka9595;
uses crt;
const n=20;
var
  a:array[1..n] of integer;
  max,i,j,k: integer;
begin
  writeln('*** alphaues is thinking... ***');
  writeln('***          OK             ***');
  randomize;
  writeln('Массив: ');
  for i:=1 to n do
    begin
      a[i]:=random(100)-50;
      write(a[i],'  ');
    end;
  for i:=1 to 3 do
    begin
      k:=i;
      max:=a[i];
      for j:=i+1 to n do
        if a[j]>max then
          begin
            max:=a[j];
            k:=j;
          end;
      a[k]:=a[i];
      a[i]:=max;
    end;
  writeln();
  writeln('Три наибольших элемента массива:');
  for i:=1 to 3 do
    writeln(i,'-й: ',a[i]);
end.