Заранее паскаль. 1)известны оценки по информатике каждого из 20 учеников класса. в начале списка перечислены все пятерки, затем все остальные оценки. сколько учеников имеют по информатике оценку пять? условный оператор не использовать
shahnozat02
3
30.03.2019 03:00
22
Другие вопросы по теме Информатика
YlankinaAnastasiya
09.09.2019 08:20
artikrv
09.09.2019 08:20
ilias1924
22.05.2020 17:24
Ларейн2772
23.12.2020 20:16
Татьяна4222
23.12.2020 20:17
Хамеда
23.12.2020 20:18
565765g
19.05.2020 13:18
solmazmitok
19.05.2020 13:18
Дианп11
19.05.2020 13:18
olenanuchajj8
19.05.2020 13:18
Популярные вопросы
- Цитаты характерезующие купца калашникова. заранее : )...
3 - Эссе истина принадлежит человеку, заблуждение - его эпохе...
1 - Вставить подходящие по смыслу прилагательные? солнце вершины берез....
3 - Каки е особености строения клетки эвглены зелёной? как она живится?...
1 - Найти значение выражения: -а если а=8,2...
1 - Дано abcd - параллелограмм, угол а=60 градусов,ав=8см,вк высота,...
2 - A)math the words to make phrases (to)spend sightseeind (to)improve...
2 - По 8 параграфу за 7 класс авторы бабенко, кучменко, константинов...
2 - Полз жук. глядь-зверь не кто? -паук. -па-ук? кыш! -как так - кыш?...
1 - Периметр ромба 42 см. найдите его стороны....
1
program primer;
var a:array[1..20] of integer;
b,c:integer;
begin
write('write raiting');writeln ;
for b:=1 to 20 do
read(a[b]);
c:=1;
repeat
inc(c);
until a[c]<5;
write(c-1);
end.