Pascal. Вычислить количество элементов массива, равных 5. Если таких чисел нет, то вывести сообщение об этом
666Chocolate666
3
18.06.2020 21:01
0
Другие вопросы по теме Информатика
ххх87
15.07.2019 18:50
Сокол111111111
15.07.2019 19:00
HelpMePzhalsta
15.07.2019 19:10
рксский
15.07.2019 19:10
podzolkova54
15.07.2019 19:10
alexmarssampoylcqg
15.07.2019 19:10
esman2
15.07.2019 19:10
Алижан07
15.07.2019 19:10
Популярные вопросы
- Какие из данных произведений 8*2л 2л*8 8л*2 2*8л являются решением следующей...
3 - Наидите модуль числа ; числа 1 целая 3/5...
3 - Скласти план до твору любка только нормальний ! любка у травневому лісі хвилі...
3 - Запишите сколько часов составляют: 15 суток . 7 суток 12 ч.- ....
1 - Сделать музыкальный разбор санта лючии по цветику-семицветику,...
2 - Этилен можно получить в результате реакции чего...
2 - Старые бревна потемнели подчеркнуть мягкие согласные?...
2 - За 400 гр творога заплатили 24 р .по какой цене продаётся творог...
1 - :выразите в метрах значения разнице а)5 дм - 14 см. б) 8дм2см-43см...
3 - Найди наибольший общий делитель и наименьшее общее краткое чисел252и 378 методом...
2
var a:array [1..10] of integer;
i, count:integer;
begin
count:=0;
for i:=1 to 10 do begin
a[i]:=random(10);
if a[i] = 5 then count:=count + 1;
end;
write('Элементов массива равных пяти: ', count);
end.
Пример работы: