STRING строковый, CHAR символьный...
var
i, n, m: integer;
a: array of integer;
begin
write('Размер массива? ');
read(n);
setlength(a, n);
writeln('Введи элементы массива');
for i := 0 to n - 1 do
read(a[i]);
write('Что искать? ');
read(m);
for i := 0 to n - 1 do
if a[i] = m then
begin
write('Найден элемент с номером ', i + 1);
exit;
end;
write('Нет такого элемента');
end.
<span>RAID-массив это </span><span>набор жестких дисков, подключенных особым образом.</span>
699 в десятичной равно 1010111011 в двоичной