Составить программу на языке паскаль: из 100 чисел выбирают 20 праизвольным образом если среди выбраных чисел есть число 50 то указать его номер если нет то указать что числа 50 нет

Пишем программу:

Pascal.

program qq;

const N = 20;

var

a:array [1. N] of integer;

i:integer;

begin

randomize;

for i:=1 to N do begin

a[i]: = random (101);

write (a[i]:3);

end;

writeln;

for I:=1 to N do

if a[i]=50 then

writeln ('Да', i)

else writeln ('Нет');

readln;

end.

Программа написана.