1)Массив из 25 элементов задан генератором случайных чисел в диапазоне от :-20 до +20. Найти среднее арифметическое чисел.2)Найти минимальный элемент.3)Найти сумму элементов,стоящих на чётных индексах imod 2=0.

1. we do not have any questions. 2. he was born in 1989. 3. we have a lot of rooms in our hotel. 4. it is an interesting film. 5. who has any ideas? 6. he was a student five years ago. 7. what has he now? 8. have you got enough money about you? 9. these are my quests. 10. where is the key to my room? — it is on the table. 11. what do you have for breakfast? 12. mary will be a manager in three years. 13. who has a pen? 14. he is a j-student, isn't he? 15. this man is in the next room. 16. what is the price? 17. how are you? i am fine. 18. how is your mend? 19. has he any children? 20. tomorrow we will have a meeting at the conference hall. 21. are you a sportsman? ! 22. they have no time to lay the table. 23. cars have four wheels. 24. there are 25 suites in our hotel now.

1. we don't have any questions.  2. he was born in 1989.  3. we have a lot of rooms in our hotel.  4. it is an interesting film.  5. who has any ideas?   6. he was a student five years ago.  7. what does he have now?   8. have you got enough money about you?   9. these are my quests.  10. where is the key to my room? - it is on the table.  11. what do you have for breakfast?   12. mary will be a manager in three years.  13. who has a pen?   14. he is a j student,isn't he?   15. this man is in the next room.  16. what is the price?   17. how are you? i'm fine.  18. how is your mend?   19. does he have any children?   20. tomorrow we'll have a meeting at the conference hall.  21. are you a sportsman? 22. they have no time to lay the table.  23. cars have four wheels.  24. there are 25 suites in our hotel now. 

Const       n = 25; var       a: array[1..n] of real;       i, j: integer;       min, max: real;       sum, product, harmonic: real; begin       {ввод массива}       writeln('данные массива: ');       for i : = 1 to n do       begin               a[i] : = random(40) - 20;               write(a[i], ' ');       end;       writeln();             {подсчет суммы и произведения и агригатов}       sum : = 0;       for i : = 1 to n do               sum : = sum + a[i];       writeln('average = ', sum / n);             {минимум и максимум}       min : = a[1];       for i : = 1 to n do               if min > a[i] then min : = a[i];       writeln('min = ', min);             {подсчет суммы и произведения и агригатов}       sum : = 0;       for i : = 1 to n do               if i mod 2 = 0 then {если нужен фильтр}                       sum : = sum + a[i];       writeln('sum = ', sum); end.

1) Переводим  203.15 в десятичную систему счисления и получаем:110010112 
2) Переведем 69.48 в восьмеричную систему, получаем 105.36560507534 или 105(8)
3)Переведем 351.125 в шестнадцатиричную систему, получаем 15F.2 или 15F(16)  

Потому что не профисиона эго делал

Задача а
program a;var   i:integer;  a:array[-5..11] of integer; begin  randomize;  for i:=1 to 11 do begin    a[i]:=random(10)-5;    if a[i] mod 5 = 0 then a[i]:=5 else a[i]:=a[i]*5;    write (a[i],);    end;end.Задача б
program b;var   i:integer;  a:array[1..12] of integer; begin  randomize;  for i:=1 to 12 do begin    a[i]:=random(20);    if a[i] mod 2 = 1 then write (a[i],);    end;end.