Question

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

Answer 1

var
  a:array[1..10] of integer;
  b,i,k:integer;
begin
  Randomize;
  Write('Введите количество элементов в массиве: ');
  for i:=1 to 10 do
  begin
    a[i]:=Random(21)-10;
    Write(a[i],' ')
    end;
  Writeln;
  Write('Какое число искать? ');
  Readln(b);
  k:=0;
  for i:=1 to 10 do
    if a[i]=b then Inc(k);
  Writeln('Число встречается ',k,' раз')
end.

Answer 2

var
  a:array[1..10] of integer;
  b,i,k:integer;
begin
  Randomize;
  Write('Введите количество элементов в массиве: ');
  for i:=1 to 10 do
  begin
    a[i]:=Random(21)-10;
    Write(a[i],' ')
    end;
  Writeln;
  Write('Какое число искать? ');
  Readln(b);
  k:=0;
  for i:=1 to 10 do
    if a[i]=b then Inc(k);
  Writeln('Число встречается ',k,' раз')
end.

Подробнее - на Znanija.com - https://znanija.com/task/29303328#readmore