Правила форума
2. Дан массив записей, содержащий сведения о школах города: номер школы, ФИО директора, название школы, число учителей, число учеников. Подсчитать общее количество учителей во всех школах города
Почему выдает результат выдает столько раз, сколько школ введено. Как исправить?
Program Examlpe3;
type Tshklola = record
ns : integer; // Номер школы
im : string; // фио директора
ish : string; // имя школы
k : integer; // кол-во учителей
g : integer; // кол-во учеников
end;
var shklola: array[1..5] of Tshklola;
i,n,s:integer; // s- кол-во учителей всего
begin
write('Введите кол-во школ n,n<5: '); Readln(n);
//Ввод данных
for i:=1 to n do
begin
writeln('shklola ',i);
write('Номер школы : '); readln(shklola[i]. ns);
write('фио директора : '); readln(shklola[i]. im );
write('имя школы : '); readln(shklola[i]. ish );
write('кол-во учителей : '); readln(shklola[i]. k );
write('кол-во учеников : '); readln(shklola[i]. g );
writeln;
end;
for i:=1 to n do
with shklola[i] do begin
s:=0;
s:=n*k;
writeln(' учителей во всех школах= ',s);
end;
END.
 Массив записей посчитать количество. |
