Форум » Обработка числовых последовательностей » Задача 3143 (Записи) » Ответить
Задача 3143 (Записи)
Optimus: Решил задачу C4 при помощи записей. [quote]program one; type mas=record fam:string[ 20 ]; ini:string[ 4 ]; p1:0..100; p2:0..100; p3:0..100; end; var a:array [ 1..100 ] of mas; i,n:byte; d:string; c:char; min:real; begin min:=100; readln(n); for i:=1 to n do begin repeat read(c); d:=d+c; until c=' '; a[ i ].fam:=d; //считываем фамилию d:=''; repeat read(c); d:=d+c; until c=' '; a[ i ].ini:=d; //считываем инициалы d:=''; read(a[ i ].p1,a[ i ].p2,a[ i ].p3); //считываем баллы if (a[ i ].p1+a[ i ].p2+a[ i ].p3)/3<min then //находим min Ср.Арифм min:=(a[ i ].p1+a[ i ].p2+a[ i ].p3)/3; end; for i:=1 to n do if (a[ i ].p1+a[ i ].p2+a[ i ].p3)/3=min then //выводим фамилии и инициалы writeln(a[ i ].fam,' ',a[ i ].ini,' ',min); readln; end. [/quote] Скажите пожалуйста во сколько баллов оценят это решение и можно как-то усовершенствовать код? Скачать код VirusTotal
Ответов - 0
полная версия страницы