Составьте программу , которая заполняет массив а[1..10 ] случайными целыми числами в диапазоне от 0 до 2 и выводит на экран количество элементов, равных 1,
More Questions From This User See All
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
var a:array [1..10] of integer;
x,k:integer;
begin
k:=0;
for x:=1 to 10 do
begin
a[x]:=random(3);
writeln('a[',x,']:',a[x]);
if a[x]=1 then inc(k);
end;
writeln('Количество элементов, равных 1: ',k);
end.