// 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.
ответ: вот ответ:
Объяснение: