Решение в паскале с Var begin
Заполнить массив из 10 элементов случайными числами от 0 до 100 и посчитать сколько раз в нем встречается число 50.
Program mas50;
var s, i: integer;
a: array[1..10] of integer;
begin
s:=0;
for i:=1 to 10 do a[i]:=random(100);
for i:=1 to 10 do write (a[i], );
for i:=1 to 10 do
if a[i]=50 then s:=s+1;
writeln (Количество чисел равных 50 =, s);
end.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
