Ответы на вопрос:
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.
Популярно: Информатика
-
Джафер109.09.2020 00:54
-
941645128.07.2021 05:33
-
Marinakaleda27.08.2021 08:06
-
olegkashpurozzi7v01.07.2021 14:15
-
Slobodenyuk2106.06.2020 06:13
-
1008967583407516.11.2021 14:16
-
islamkazirbaev03.09.2022 10:50
-
NerminJaleÇiçek14.07.2020 12:12
-
СуРиКан20060604.02.2021 20:33
-
korotkovavd200614.01.2021 04:50