Фильтрация записей по значению поля

Задача

Вывести на экран фамилии студентов, чей балл выше среднего по группе.

Решение

 

Описание переменных: 

arr_studs – группа студентов;
average – средний балл в группе.

Программа на языке Паскаль: 

 

type
    studs = record
        sname: string[25];
        eval: integer;
    end;
var
    arr_studs: array[1..15] of studs;
    sum: integer;
    average: real;
    i,n: byte;
begin
    write('Количество студентов: ');
    readln(n);
    sum := 0;
    for i:=1 to n do
        with arr_studs[i] do begin
            write(i,'-й студент: ');
            readln(sname);
            write('   Оценка: ');
            readln(eval);
            sum := sum + eval;
        end;
    average := sum / n;
writeln;
    writeln('Студенты с оценкой выше средней:');
    for i:=1 to n do
        if arr_studs[i].eval > average then
            writeln(arr_studs[i].sname);
readln
end.

 

Тема

Записи

Уровень

Простые задачи

Теги

Добавить комментарий