Pascal. дана ведомость учащихся и количество их - вопрос №5776149 от людмила235 02.08.2020 05:12

Question

Информатика: Pascal. дана ведомость учащихся и количество их пропусков за семестр (в часах). определить кол-во учащихся, не имеющих пропусков, и количество учащихся с пропусками в более чем 20 часов. за основу можно взять эту программу, но нужно сделать чтобы он воспринимал 20 часов . program pr2; uses crt; type t=record names: string[15]; score: integer end; var list: t; n,i,sum1,sum2: integer; begin clrscr; sum1: =0; sum2: =0; writeln( введите количество учащихся ); readln(n); writeln( введите фамилию и имя

людмила235 · Answer

Type
    t = record
        name: string[15];
        mishours: integer
    end;

var
    list: array[1..10] of t;
    n, i, k0, k20: integer;

begin
    writeln('Введите количество учащихся');
    readln(n);

    k0 := 0;
    k20 := 0;
    for i := 1 to n do
        with list[i] do
        begin
            write('Фамилия имя = ');
            readln(name);
            write('Пропущенных часов = ');
            readln(mishours);

            if mishours <= 0 then k0 := k0 + 1;
            if mishours > 20 then k20 := k20 + 1
        end;

    writeln('Количество людей без пропусков = ', k0:3);
    writeln('Количество людей с пропусками больше 20 часов =', k20:3)
end.