Напишите программку, по которой будут введены данные из файла, описанного в

Напишите программку, по которой будут введены данные из файла, описанного в прошлом задании, и выполнена последующая обработка:
1) nbsp;Определение среднего роста и среднего веса всех воспитанников;
2) nbsp;Вывод на экран и в файл rost.txt перечня (фамилии, имена, возраст) воспитанников, рост которых выше среднего роста;
3) nbsp;Вывод на экран и в файл ves.txt списка воспитанников, вес которых ниже среднего веса.

Задать свой вопрос
1 ответ
Program Examen;
Type results = record
Fam: string[15];
Rus: 2..5;
Alg: 2..5;
Phiz: 2..5
End;
Var list: array[1..30] of results;
i: integer; F1, F2: text;
Begin
Assign(F1, 10_a.txt);
Assign(F2, Best.txt);
Reset(F1);
Rewrite(F2);
Readln(F1); Readln(F1);
For i:=1 To 30 Do
Readln(F1,list[i].Fam,list[i].Rus,list[i].Alg,list[i].Phiz);
For i:=1 To 30 Do
If (list[i].rus=5) and (list[i].alg=5) and
(list[i].phiz=5)
Then
Begin
Writeln(list[i].fam);
Writeln(F2, list[i].fam)
End;
Close(F1); Close(F2)
End.
, оставишь ответ?
Имя:*
E-Mail:


Последние вопросы

Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт