Меню сайта

Задача №6

Занести втаблицу оценки учеников класса за год по математике — и информатике.

uses crt-

vari,k,size:integer-

nam:array[1..20] ofstring-

inf:array[1..20] ofinteger-

mat:array[1..20] ofinteger-

begin

clrscr-

writeln(‘Сколько учеников в классе’)-

readln(size)-

FOR i := 1 TO sizedo

begin

clrscr-

writeln(‘Введите фамилию ученика, оценку по мат.,оценку по инф.’)-

readln(nam[i])-

readln(inf[i])-

readln(mat[i])-

end-

clrscr-

writeln(‘Неуспевающие по информатике’)-

FOR i := 1 TO sizedo

begin

IF inf[i] &lt-= 2 THENwriteln(nam[i])-

end-

writeln(‘Неуспевающие по математике’)-

FOR i := 1 TO sizedo

begin

IF mat[i] &lt-= 2THEN writeln(nam[i])-

end-

writeln(‘Отличники’)-

FOR i := 1 TO sizedo

begin

IF (mat[i] = 5) AND(inf[i] = 5) THEN writeln(nam[i])-

end-

writeln(‘Общее число неуспевающих’)-

FOR i := 1 TO sizedo

begin

IF (mat[i] = 2) OR(inf[i] = 2) THEN k := k + 1-

end-

writeln(k)-

end.

Категория: Общие | Дата: 28.12.12

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