Никита,оставшись.один,пошёл в сарай и увидел там пустую бочку.Он думал,что в ней живёт маленький человечек с длиной бородой.Никита разговаривал с ним,по отдать ножницы,которые пропали у мамы.За деревней кто-то ухнул.Бочка отозвалась страшным голосом.Никита испугался и по защиты у солнца.
Солнце было доброе и ласковое.Никита подумал,что это дедушка теперь живёт на солнце.
За огородом находился старый колодец.Никита думал,что на дне живут маленькие водяные жители,толстые,безволосые и вредные.Потом ему представилось,что там ещё и великан.
У сарая он увидел две земляные норы.Он решил,что это змеиные норы.
Никита увидел на огороде старый пень и решил,что это голова человека.Лицо у пня было сердитое.
Он смотрел на старую баню и думал.что это бабушка превратилась в избушку.
Петух представлялся ему пастухом,а цветок-маленьким ребёнком.
const
n=40;
var
a:array [1..n] of integer;
i,k:integer;
begin
Randomize;
k:=0;
Writeln('Исходный массив');
for i:=1 to n do begin a[i]:=random(63)+20; Write(a[i],' ') end;
Writeln; Writeln('Четные элементы, кратные 3');
for i:=1 to n do
if a[i] mod 6=0 then begin Inc(k); Write(a[i],' ') end;
Writeln; Writeln('Отобрано элементов: ',k)
end.
Пример
Исходный массив
43 49 27 45 57 20 54 22 74 79 57 64 30 41 67 58 36 68 79 46 28 74 61 21 80 57 50 24 80 36 27 57 38 38 41 71 50 69 39 48
Четные элементы, кратные 3
54 30 36 24 36 48
Отобрано элементов: 6
2)
const
n=20;
var
a:array [1..n] of integer;
i,imin:integer;
begin
Randomize;
Writeln('Исходный массив');
imin:=1;
for i:=1 to n do begin
a[i]:=random(351)+20;
Write(a[i],' ');
if a[i]<a[imin] then imin:=i
end;
Writeln;
Writeln('Минимальный элемент a[',imin,']=',a[imin])
end.
Пример
Исходный массив
292 54 248 310 181 210 263 284 255 156 177 340 173 39 108 144 270 40 318 155
Минимальный элемент a[14]=39