Дан массив, содержащий 2015 положительных целых чисел. напишите на одном из языков программирования программу, которая находит в этом массиве количество локальных минимумов, значение которых кратно 3. локальным минимумом называется элемент массива, который меньше всех своих соседей. например, в массиве из 6 элементов, содержащем числа 4, 6, 12, 7, 3, 8, есть два локальных минимума: это элементы, равные 4 и 3. программа должна вывести общее количество подходящих элементов, значения элементов выводить не нужно.

A=[]
for i in 1..2015
    a<<Random.rand(200)-100
end
p a

k=0
for i in 0...a.size
    if (a[i]%3==0) and ((i==0 and a[0]<a[1]) or (i==a.size-1 and a[i]<a[i-1]) or (a[i]<a[i-1] and a[i]<a[i+1]))
        k+=1
    end
end
p k

Const
  n=2015;

var
  a:array[1..n] of integer;
  i,k: integer;

begin
  Randomize;
  for i:=1 to n do a[i]:=Random(300)+1;
  if (a[1]<a[2]) and (a[1] mod 3=0) then k:=1 else k:=0;
  if (a[n]<a[n-1]) and (a[n] mod 3=0) then Inc(k);
  for i:=2 to n-1 do
    if (a[i-1]<a[i]) and (a[i]<a[i+1]) and (a[i] mod 3=0) then Inc(k);
  Writeln('Чсло локальных минимумов равно ',k);
end.

Var a:array of integer;
n,i,min,imin,max,imax:integer;
begin
write('n = ');
readln(n);
SetLength(a,n);
for i:=0 to n-1 do
 begin
  a[i]:=random(51);
  write(a[i]:4);
  end;
writeln;
min:=a[0]; imin:=0;
max:=a[0]; imax:=0;
for i:=1 to n-1 do
 begin
  if a[i]<min then 
   begin 
    min:=a[i]; imin:=i;
    end;
  if a[i]>max then 
   begin
    max:=a[i]; imax:=i;
    end
   end;
writeln('min = ',min,' max = ',max);
a[imin]:=max; a[imax]:=min;
for i:=0 to n-1 do  write(a[i]:4);
writeln;
end.

Пример:
n = 10
  33  17  33  49   3   2  14  25  35  47
min = 2 max = 49
  33  17  33   2   3  49  14  25  35  47

2. ПО – совокупность программ, выполняемых компьютером. Роль – дает возможность пользоваться вычислительными мощностями  

3. Системное и прикладное ПО (и иногда инструментальное)

4. Взаимодействие пользователя с программами, взаимодействие программ и устройств, распределение ресурсов компьютера между запущенными процессами

5. Установка создаёт файлы ОС, загрузка читает уже созданные

6. Компьютер не смог найти операционную систему на диске, с которого он загружается. Может быть связано с повреждением диска, с неверными параметрами загрузки или с использованием не загрузочного диска