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

Question

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

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.