дан школьный журнал. в нём стоит 25 оценок, от 1 до 5. напишите программу в паскале, что бы она выдавала количество пятёрок. умоляю В ПАСКАЛЕ
Ychi1ka
3
05.12.2021 14:15
0
Другие вопросы по теме Информатика
mahotinvasili
06.08.2019 18:50
Spy15
06.08.2019 18:50
Айзат121а
13.11.2019 20:04
karinatom9
13.11.2019 20:03
Лера568687
30.10.2020 15:05
rulmich1203p0dlzb
02.11.2019 00:25
etyan00
01.11.2019 23:40
vladir03Wlad
01.11.2019 23:42
Популярные вопросы
- який заряд буде накопичений на другій кульці після того як усі три...
1 - 2) Саша разложил все конфеты в три пакетика, причём в каждом пакетике...
2 - Letter for President (письмо для президента касыма жомарта токаеву...
2 - Какая флешка подойдёт для kali Linux? я сейчас именно за скорость...
2 - Перепишите текст 1, раскрывая скобки, вставляя где это необходимо,...
2 - В чому різниця між функціями append() та insert(), передбаченими для...
2 - Изобразить на координатной прямой и записать промежуток : а)х 3 б)х»-4,5...
1 - с сочинением, нужно коротко...
3 - Задачи для самостоятельной работы:1.Высота столба, дающего тень длиной...
2 - 15. Выпиши из текста местоимения и укажи ихчисло, падеж и лицо....
2
var
a: array[0..25] of integer;
i,b: integer;
begin
for i:= 0 to 24 do
readln(a[i]);
for i:= 0 to 25 do
begin
if a[i] = 5 then
b:= b + 1;
end;
writeln('Количество пятерок: ',b);
end.
Объяснение:
Вроде бы так :)