Question

Написать программу осуществляющую поиск в одномерном массиве A, состоящего из 20 элементов, заданных случайным образом элемента, равного 50. Если такого нет, вывести на экран сообщение “Такого нет”.

Answer 1

var a:array[1..20] of integer;

i,k: integer;

begin

for i:=1 to 20 do

begin

a[i]:=random(51)+25;

write (a[i],' ')

end;

writeln;

for i:=1 to 20 do

if a[i]=50 then

begin

writeln (i,' элемент = ',a[i]);

k:=k+1

end;

if k=0 then writeln ('Такого нет')

end.