На вход программы подаются оценки учеников 8 класса за контрольную работу по математике ( в классе 25 человек). Вычислите:
-средний балл за контрольную работу
- найти количество "4" и "5"

program a1; const n=20; var c: array [1..100] of integer; var i,k: integer; begink: =0; for i: =1 to n do beginc[i]: =random(101)-50; {заполнение массива произвольно от -50 до 50}write(' ',c[i]); {вывод массива на экран}end; for i: =2 to n doif c[i]< c[i-1] then k: =k+1; {сравнение элемента с предыдущим и счет  элементов которые меньше}writeln; writeln('количество элементов=',k); end.

вот проверила, так работает. нормально?

program maxmin; var    a, b, c: integer;     max, min: integer; beginwriteln('введите три числа.'); read(a,b,c); {вводи числа через пробел}max: =a; if(b> max) then max: =b; if(c> max) then max: =c; min: =a; if(b< min) then min: =b; if(c< min) then min: =c; writeln('разность наибольшего и наименьшего чисел равна ',max-min); end.

f0=(15*16в1)+(0*16в0)=240 , делим столбиком число 240 на 2 (делим и делим) и записываем остатки с конца и получаем число 11110000

т.е.  240/20=120    ост  0

120/2=60    ост  0

60/2=30   ост  0

30/2=15  ост  0

15/2=7   ост  1

7/2=3   ост  1

3/2=1   ост  1

записываем в обратном поряде    11110000

1d4=(1*16в2)+(13*16в1)+(4*16в0)=256+208+4=468  делим столбиком число 468 на 2         111010100

так как число , имеющих «тройки» по и , равно 7, то число учеников, имеющих только две «тройки» - по и по , равно 7-5=2. тогда 17-4-5-2=6 учеников имеют две «тройки» - по и по языку, а 22-5-2-11=4 ученика только две «тройки» - по и по языку. в этом случае без «тройки» учится 40-22-4-6-4=4 ученика. а имеют «тройки» по двум предметам из трех 6+2+4=12 человек.