Разработать программу, которая считывает с клавиатуры данные следующей структуры: а) Серийный номер, имя, имя, примечания из экзамены (6); б) номер заказа, имя, фамилия, отсутствие без уважительной причины, полное отсутствие. Из считанных данных для отображения на экране: 11) список студентов, имеющих менее 40 мотивированных пропусков занятий;

282

344

Посмотреть ответы 1

Ответы на вопрос:

vigolnikov

Информатика

4,6(33 оценок)

Var a,b,c: integer; m2: array [1..15] of integer; begin for a: =1 to 15 do begin m2[a]: = random (95)-25; write (m2[a], ' '); end; for a: =1 to 15 do for c: =1 to 14 do if m2[c]< m2[c+1] then begin b: =m2[c]; m2[c]: =m2[c+1]; m2[c+1]: =b; end; writeln (m2[1], ' ',m2[15]); end.