Составить программу на языке паскаль при поступлении в вуз абитуриенты , получившие "двойку" на первом экзамене , ко второму не допускаются . в массиве a[n] записаны оценки экзаменующихся , полученные на первом экзамене . подсчитать , сколько человек не допущено ко второму экзамену .

217

437

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

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

antonareninozvuw8

Информатика

4,5(37 оценок)

uses crt;

var i,count: integer; a: array[1..15] of integer; beginrandomize; count: =0; writeln('первый екзамен сдало 15 человек '); for i: =1 to 15 dobegina[i]: =random(5)+1; if a[i] = 2 then inc(count); end; for i: =1 to 15 do writeln('студент ',i,' написал на ',a[i],' '); //не обезательноwriteln('на екзамен допущено ',count,' '); readln;

end.