Составьте программу которая заполняет массив a[1..10] случайными целыми числами в диапазоне от 1 до 20 и находится минимальный элемент массива и его индекс
Const n=10; var i,im:integer; a:array[1..10] of integer;
begin Randomize; im:=1; for i:=1 to n do begin a[i]:=Random(21)+1; Write(a[i],' '); if a[i]<a[im] then im:=i end; Writeln; Writeln('Минимальный элемент a[',im,']=',a[im]) end.
Пример 20 13 16 7 9 4 21 13 2 10 Минимальный элемент a[9]=2
Интернет по сути своей не представляет опасности для подрастающего поколения. Вредоносное влияние оказывают многочисленные сайты и всплывающие окна рекламного характера. Помимо образовательной роли виртуальная реальность таит и множество негативных моментов, в особенности для детей. Это может быть:
незаконный контент: «взрослая» реклама табака, алкоголя, секса, азартные игры, порнография;платные сервисы и услуги, которые оплачиваются отдельно;призывы к асоциальному поведению, насилию и жестокости;пропаганда сексуальной эксплуатации и суицидального поведения;общение на форумах и чатах с мошенниками, аферистами и преступниками под личиной доброжелателей;вынуждение предоставления личной информации ребенка или его семьи, которая может быть использована в преступных целях;Интернет-зависимость.
n=10;
var
i,im:integer;
a:array[1..10] of integer;
begin
Randomize;
im:=1;
for i:=1 to n do begin
a[i]:=Random(21)+1;
Write(a[i],' ');
if a[i]<a[im] then im:=i
end;
Writeln;
Writeln('Минимальный элемент a[',im,']=',a[im])
end.
Пример
20 13 16 7 9 4 21 13 2 10
Минимальный элемент a[9]=2