Question

Задан случайный символьный массив. Ввести с клавиатуры символ и вывести на консоль количество всех таких символов в массиве.

Создайте программу, не разбираюсь в массивах. Нужно как можно скорее!

Answer 1

// PascalABC.Net

const n = 10;

begin

   var a:= ArrGen(n, i -> chrAnsi(random(33, 127))).Println(', ');

   var c:= ReadChar('Введите символ: ');

   a.Where(e -> e = c).Count().PrintLn();

end.

// Turbo Pascal

const n = 100;

var a: array [1..n] of char;

i, count: integer;

c: char;

begin

randomize;

   for i := 1 to n do

   begin

       // Не могу сохранить ответ, ругается на функцию chr, поэтому замените в следующей строке символы abc на chr

       a[i] := abc(random(127 - 33 + 1) + 33);

       write(a[i], ' ');

   end;

   writeln();

   write('Введите символ: ');

   readln(c);

   count := 0;

   for i := 1 to n do

   begin

       if a[i] = c then

           inc(count);

   end;

   write('Количество: ', count);

end.