Решение в паскале с Var begin Заполнить массив из 10 элементов случайными числами от 0 до 100 и посчитать сколько раз в нем встречается число 50.
Решение в паскале с 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.
Не нашли ответ?
Похожие вопросы