Pean
4 год назад
Создайте массив из 10 целых случайных чисел от 0 до 15. Определите, есть лиравный 5. Ответ выведите в виде слова да или нет.
ОТВЕТЫ
Виолетка
Oct 24, 2020
var i, n, k: integer;
var A: array [1..10] of integer;
begin
k:=0;
for i:=1 to 10 begin
A[i]:=random(15);
if A[i]=5 then
k:=k+1;
end;
if k=0 then writeln('нет');
else writeln('да');
end.
var A: array [1..10] of integer;
begin
k:=0;
for i:=1 to 10 begin
A[i]:=random(15);
if A[i]=5 then
k:=k+1;
end;
if k=0 then writeln('нет');
else writeln('да');
end.
928
Смежные вопросы: