Меню сайта

Задача №7

Сформироватьсписок учащихся сдавших экзамен на отлично.

uses crt-

var i,size:integer-

nam:array[1..10] ofstring-

tick:array[1..10]of integer-

mark:array[1..10]of integer-

markp:array[1..10]of string-

begin

clrscr-

writeln(‘Введите кол-во учеников в классе’)-

readln(size)-

FOR i := 1 TO sizedo

begin

clrscr-

writeln(‘Введите фамилию ученика, билет, оценкуцифрой, прописью (через ENTER)’)-

readln(nam[i])-

readln(tick[i])-

readln(mark[i])-

readln(markp[i])-

end-

clrscr-

FOR i := 1 TO sizedo

begin

writeln(nam[i],’ Билет — ‘,tick[i],’ Балл -‘,mark[i])-

end-

FOR i := 1 TO sizedo

begin

IF (mark[i] = 5)AND (markp[i] = ‘пять’) THEN — writeln(nam[i], ‘ билет № ‘, tick[i], mark[i]:2, ‘ (отлично)’)-

end-

end.

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

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