Проверить, имеются ли в данном одномерном массиве элементы равные заданному числу - Turbo Pascal

Формулировка задачи:

29. Решить задачу в Turbo Pascal.С клавиатуры вводится число, проверить, имеются ли в данном одномерном массиве элементы равные данному числу, если да, то вывести количество таких элементов.

Код к задаче: «Проверить, имеются ли в данном одномерном массиве элементы равные заданному числу - Turbo Pascal»

textual
const
  n = 10;
var
  k, i, m : integer;
  a : array [1..n] of integer;
begin
  k := 0;
  randomize;
  for i := 1 to n do
  begin
    a[i] := random(10);
    write(a[i]:4)
  end;
  writeln;
  writeln('введите число: ');
  readln(m);
  for i := 1 to n do
    if a[i] = m then inc(k);
  if k = 0 then writeln('таких чисел нет в массиве')
    else writeln('чисел равных ', m , ' - ', k, ' штук');
  readln
end.

11   голосов, оценка 3.818 из 5


СОХРАНИТЬ ССЫЛКУ
Похожие ответы