4а) составьте программу , которая заполняет массив а[1..10 ] случайными целыми числами в диапозоне от 1 до 10 , затем элементы с четными индексами удваиваются , а элементы с нечетными индексами утраивает.выведите на экран исходный и полученный массив. б)составьте программу , которая заполняет массив b[1..8 ] случайными целыми числами в диапозоне от 1 до 10 , затем изменяет знак элементов с четными индексами на противоположный .выведите на экран исходный и полученный массивы. 5) а)составьте программу , которая заполняет массив а[1..10 ] случайными целыми числами в диапозоне от 1 до 10 , и находит количество элементов , которые больше своего соседа слева б)составьте программу , которая заполняет массив b[1..8 ] случайными целыми числами в диапозоне от 1 до 10 и находит количество пар элементов с четными значениями. 6) а)составьте программу , которая заполняет массив а[1..20 ] случайными целыми числами в диапозоне от 1 до 10 , и находит среднее арифметическое элементов с четными значениями и нечетными индексами. б) составьте программу , которая заполняет массив b[1..15 ] случайными целыми числами в диапозоне от 1 до 20 и выводит все тройки элементов , строго по возрастанию.

 

program pr_a;  

var a: array[1..10] of integer;

i, x, y: integer;

begin

x: =0;

y: =0;

for i: =1 to 10 do

begin

a[i]: =random(11);

write(a[i],' ');

writeln;

end;

for i: =1 to 10 do

 

begin

if a[i] mod 2=0 then

x: =a[i]*2

else

y: =a[i]*3;

write(y,' ');

write(x,' ');

end;

end.

 

 

 

  а дальше мне лень : ) 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

   

 

 

 

 

 

 

 

 

 

 

 

// то чувство, когда 2 часа работал над оптимизацией, а в итоге работает быстрее вариант, который писал 5 минут.//pascalabc.net 3.2 сборка 1318var  i,j,k,m,n,count: integer;   s,s1: string; begin  readln(n); for i: =1 to n do  s+=inttostr(i); for i: =1 to length(s) doif (s[i]='2') or (s[i]='0') or (s[i]='1') or (s[i]='3') then s1+=s[i]; s: =s1; for i: =1 to length(s) do  if   s[i]='2' then    for j: =i+1 to length(s) do      if s[j]='0' then        for k: =j+1 to length(s) do          if s[k]='1' then            for m: =k+1 to length(s) do              if   s[m]='3' then inc(count); writeln(count); end.пример ввода: 500пример вывода: 23760240

Лишь один человек в семье имеет брата - это сестра мужа. поэтому она инженер. жена - не слесарь и не (вряд ли женщина увлекается футболом) => она учитель или юрист. учителем она быть не может, так как в этом случае она была бы одновременно и старше, и моложе, чем инженер. следовательно, жена - юрист, а учитель - тот, кто не является ей кровным родственником, то есть ее муж. оставшиеся родственники (слесарь и по профессии) - это родные дед и внук. так как слесарь младше, то слесарь - это сын, а - его дед, то есть отец жены. сестра мужа - инженер жена - юрист муж - учитель сын - слесарь отец жены -