Ответы на вопрос:
//pascalabc.net v 3.3
const n = 30;
var a: array[1..n] of integer;
n3,n4,n5,i: integer;
begin
for i: =1 to n do begin
a[i]: =random(3,5);
if a[i]=3 then inc(n3);
if a[i]=4 then inc(n4);
if a[i]=5 then inc(n5);
end;
writeln('3 - ',n3);
writeln('4 - ',n4);
writeln('5 - ',n5);
print(a);
end.
Популярно: Информатика
-
mokajuma7704.09.2020 18:19
-
хомяк200509.01.2023 03:20
-
shevchenkok118.03.2023 05:58
-
Giuz10.08.2020 17:19
-
castlecrashers14.08.2022 02:33
-
stacezoloto24.04.2022 07:33
-
Алёна54213303.04.2020 23:07
-
kusainovy0308.03.2020 11:34
-
19821982133328.05.2023 03:05
-
kolya132531.01.2021 02:14