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.

Пока не оформишь тему как положено - ответов больше не жди. Надоело.

Извините пожалуйста, я вчера только зарегистрировалась. Подскажите как правильно оформлять. Не сердитесь на меня. Обучаюсь дистанционно вопросов много, сдать 6 контрольных по 30 программ. А спросить не у кого(. Помогите. Я ведь пытаюсь сама решить, но когда не понимаю просто ступор!

В правилах форума 2 пунктом идет "2. Все тексты программ должны помещаться в теги [ code=pas ] ... [ /code ]."
Откройте ваше сообщение выберите полное редактирование и заключите ваш код в соответствующие теги.И вообще ознакомтесь со всеми правилами и я думаю вам ответят.

Нажмите для просмотра прикрепленного файла