Написать программу, которая проверяет, находится ли в массиве введенное с клавиатуры число. Массив должен вводиться случайным образом.

1

Ответы и объяснения

  • Sky09
  • профессор
2013-06-24T16:01:20+04:00

uses crt;
var
  a:array [1..1000] of integer;
  i,k,n:integer;
begin
  n:=0;
  write('Введите количество элементов массива: '); read(i);

  write('Введите число: '); read(k);

  writeln('Массив:');
  for i:=1 to i do
  begin
    a[i]:=random(100)-50;
    write(a[i],' ');
    if a[i]=k then n:=n+1;
  end;
  writeln;
  write('Введенное число встречается в массиве ',n,' раз');
end.