Помогите по информатике, надо составить программу вот условия: массив от 1 до 10 заполнить целыми случайными числами от 1 до 20. Определите есть ли в массиве элемент равный 5. Ответ в виде слов "да" или "нет".

Question

Информатика

Аграфена

5 января, 03:50

Помогите по информатике, надо составить программу вот условия: массив от 1 до 10 заполнить целыми случайными числами от 1 до 20. Определите есть ли в массиве элемент равный 5. Ответ в виде слов "да" или "нет".

+4

Ответы (1)

Знаете ответ на вопрос?

Марюша · Answer 1

Var

mas: array [1 ... 10] of integer;

i:integer;

begin

randomize;

for i:=1 to 10 do begin

mas[i]:=random (1,20) ;

write (mas[i], ' ') ;

end;

writeln (mas[i], ' ') ;

for i:=1 to 10 do begin

if mas[i]=5 then

writeln ('Да') ;

end;

end.