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('введите фамилию и имя'); for i: =1 to n do with list do begin readln(names); writeln('количество пропущенных часов у учащегося'); readln (score); if score=0 then sum1: =sum1+1; if score=20 then sum2: =sum2+1 end; writeln('количество людей без пропусков = ',sum1: 3); writeln('количество людей с пропусками больше 20 часов =',sum2: 3) end.
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.