Предмет: Информатика,
автор: lapochka567
При поступлении в институт абитуриенты, получившие двойку на первом экзамене, ко второму недопускаются. В массиве А записаны оценки экзаменующихся. Подсчитать, сколько человек недопущено ко второму экзамену.
"язык паскаль"
Ответы
Автор ответа:
0
const n=10;
var a:array[1..n] of integer;
i,k:integer;
begin
write('Оценки абитуриентов: ');
for i:=1 to n do a[i]:=random(4)+2;
for i:=1 to n do write(a[i]:5);
writeln;
for i:=1 to n do
if a[i]=2 then
inc(k);
write('Не допущены к повторному экзамену ',k,' абитуриента(-ов) ');
end.
var a:array[1..n] of integer;
i,k:integer;
begin
write('Оценки абитуриентов: ');
for i:=1 to n do a[i]:=random(4)+2;
for i:=1 to n do write(a[i]:5);
writeln;
for i:=1 to n do
if a[i]=2 then
inc(k);
write('Не допущены к повторному экзамену ',k,' абитуриента(-ов) ');
end.
Похожие вопросы
Предмет: Химия,
автор: pochemyyatakoitypoi
Предмет: Математика,
автор: olgaolga29062010
Предмет: Математика,
автор: ulan2008
Предмет: Химия,
автор: Nyany
Предмет: Биология,
автор: Лера0401