Привет суть задания такого это все как понимаю надо в одной программе и сделать блок схему Это курсовая работа если чтона Паскаль АБСЗадание 19. Разработать и отладить программу, содержащую процедуру, которая, находит среднеарифметическое отрицательных компонент, расположенных после максимального элемента в массиве и функцию, определяющую среднеарифметическое положительных компонент, стоящих до максимального элемента в массиве. Задание 2 в этой же программеВАРИАНТ 9 Пассажир Структура элемента массива пассажир: фамилия, имя, отчество, номер рейса, количество багажных мест, общий вес. Определить: ─ рейс с максимальным весом багажа; ─ пассажира с наибольшим количеством вещей; ─ вывести список пассажиров, улетающих заданным рейсом, и информацию об их багаже ─ удалить запись по заданной фамилии пассажира

это по какой классу скажите

1 )В кодовых таблицах КОИ-8 и Windows сначала расположены прописные русские буквы, а затем строчные. Русские прописные буквы в кодовых таблицах КОИ-8 и Windows имеют номера со 192 по 223. Русские буквы в кодовых таблицах КОИ-8 и Windows имеют номера со 192 по 225.

2)

film

face

fine

fire

3)3

4) i = 1 байт

k = «Речь вести - не лапти плести.»

Найти:

V - ?

Решение

i = 1 байт = 8 бит

В предложении «Речь вести - не лапти плести.»- 29 символов

V = k * i (формула нахождение объёма текстовой информации)

Где, к – количество символов в тексте

V = 29 * 8 = 232 бит = 29 байт

ответ: текст содержит 29 байт информации

5 )Слово занимает 14 байт =14*8=112 бит памяти. Решение: Переведем Кб в байты: 0, 25 Кб * 1024 =256 байт. Так как текст занимает объем 256 байт, а каждый символ – 1 байт, то в тексте 256 символов.

6)31 управляющие

7)4

8)576 битов тоесть :576/8=72 бита

1) Var a:integer;
Begin   
       Writeln('Введите число');     
           Readln(a);     
If (a mod 2  = 0) then writeln('Введённое число чётное.') 
 Else writeln('Введённое число чётное'); 
End.

2)  var A,A1,B,B1,C,C1:integer;
Begin   
     a:=4;b:=1;c:=7;   
        Writeln('Дан треугольник со сторонами A=4 B=1 C=7');   
        Writeln('Введите стороны треугольника A,B,C');     
         Readln(A1,B1,C1);     
If (A=A1) and (B=B1) and (C=C1) then writeln('треугольники равны') 
   Else writeln('треугольники не равны'); 
End.

3)var x,y:integer;
Begin 
   write('Введите первый промежуток: ');  readln(x); 
      write('Введите второй промежуток: ');  readln(y); 
if x<y then write('Отдаляется')
   else write('Приближается');
end.