Составьте программу которая заполняет массив А[1: 10] случайными целыми числами в диапазоне от 1 до 100 Определите если в массиве элемент равный 5 ответ в виде слов "да" или "нет"

Question

Информатика

Алимбек

18 июня, 10:20

Составьте программу которая заполняет массив А[1: 10] случайными целыми числами в диапазоне от 1 до 100 Определите если в массиве элемент равный 5 ответ в виде слов "да" или "нет"

+5

Ответы (1)

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

Катри · Answer 1

var

a:array[0 ... 9] of byte;

k:byte;

f:boolean;

begin

randomize;

for k:=0 to 9 do begin

a[k]: = random (99) + 1;

if (a[k]=5) then f:=true;

end;

if (f) then writeln ('Да')

else writeln ('Нет') ;

end.