Начала программирования. Одномерные массивы
методическая разработка по информатике и икт на тему

var n,i,mx,s: integer; a: array [ 1 .. 2 5 ] of integer;sr: real;

begin

AssignFile(input,'input.txt');  Reset(input);

AssignFile(output,'output.txt');   Rewrite(output);

//Задается количество учеников в группе

  readln(N);

//Задаются баллы учеников (в строчку)

// (ВВОД ДАННЫХ В МАССИВ)

for i: = 1 to N do

    read(a [i]);

//Выводятся баллы учеников (балл занимает 5 позиций)

// (ВЫВОД ДАННЫХ ИЗ МАССИВА)

for i: = l to N do

    write(a[i]:5);

wr i t eln ;

//Находится сумма баллов учеников

// (СУММА ЗНАЧЕНИЙ ЭЛЕМЕНТОВ В МАССИВЕ)

s: = 0;

for i:= 1 to N do     s: = s + a[i ];

//Находится и выводится средний балл

sr : = s /N ;

wгiteln (' Средний балл в rpynne = ',sr:8:2);

//Находится и выводится наибольший балл

//( МАКСИМУМ В МАССИВЕ)

mx : = a [ 1 ] ;

for i: = 1  to N do

   if a[i]>mx then mx: = a[i]:

writeln(' Наибольший балл в rpvnne = ',mx);

//Считается и печатается кол-во уч-ов с баллом выше средн-го

p: = 0;

for i: = 1  to N do

    if a[i]>sr then p : = p+1 ;

writeln('Количество уч-в, с баллом выше среднего=',р);

//Подсчитывается и печатается кол-во учеников с четным

баллом

t: = 0;

fо г i: = 1 to N do

    if a[i] mod 2 = 0 then t: = t + 1 ;

writeln('Количество учеников, имеющих четный б алл = ', t);

//Сортируются по неубыванию баллы учеников

// (СОРТИРОВКА МАССИВА МЕТОДОМ «ПУЗЫРЬКА»)

for M:=N-1 downto 1  do

     for i: = l to M do

             if a[i]>a[i+1 ]

                  then

                        begin

                             b : = a [ i ] ;

                             a [ i ] : = a [ I + 1 ];

                             a [ I + 1 ] : = b ;

                         end ;

//Печатаются отсортированные баллы

for i: = 1 to N do    

    write(a[i] : 5);

  CloseFile(input);

  CloseFile(output);

end.

ВВОД

4

5 2 3 5

ВЫВОД

         5       2      3       5

Средний балл в группе=      3.75

Наибольший балл в группе=5

Количество уч-в, с баллом выше среднего= 2

Количество учеников, имеющих четный балл=1

Отсортированный по неубыванию массив

2      3       5       5