Ф. И. О. Львов Вадим Анатольевич
Дата рождения 06.01.2000 год Гражданство российское Пол мужской
Место рождения ст.Должанская Ейского района
Дом. адрес: ст.Должанская, улица Ленина, 216
Паспорт 0313 №508700 выдан 15.01.2014 ОУФМЦ по Краснодарскому
краю в Ейском районе
Место учебы: муниципальная бюджетная общеобразовательная
организация средняя общеобразовательная школа №26 ст.Должанской
муниципального образования Ейский район
Цель составления резюме: участие в конкурсе муниципального этапа
Первого Всероссийского конкурса общеобразовательных организаций
России, развивающих ученическое самоуправление
(Впиши свою имя и т.д.)
Объяснение:
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