Меню сайта

Задача №1

Ввести информацию по 3-м студентам ( порядковый — номер, — Ф.И.О. и три оценки) определить количество отличников и средний бал каждого студента.


Program zap_1-

Type student = record

n : integer —

fio : string[40] —

bal : array [1..3] of integer —

end-

Var spisok : student — —

i, j, kol, s : integer- sr : real-

Begin

kol:=0- —

With spisok do —

For i:=1 to 3 do —

begin

n:=i-

Write (‘ введите фамилию ‘, i ,’ ‘)-

Readln (fio)-

s:=0-

For j:= 1 to 3 do

begin

write ( ‘введите оценку: ‘ )-

readln ( bal [j] )-

s := s+ bal [j]-

end-

if s=15 then kol:=kol+1- —

sr := s/3- writeln ( fio, ‘, средний бал = ‘, sr:4:1)- end-

writeln ( ‘ количество отличников= ‘, kol )-

readln-

end.
Категория: Записи | Дата: 25.01.13

Меню раздела
Блок