Вот так попробуй
var
a: array[1..10] of integer;
x, i: integer;
l: boolean;
begin
write('Введите ряд чисел - ');
//заполняем массив
for i:=1 to 10 do
read(a[i]);
//вводим число, которое нужно проверить
write('Введите число - ');
readln(x);
//проверяем, есть ли число в массиве
//если есть, то l будет присвоено true
for i:=1 to 10 do
if a[i] = x thenl := true;
//проверяем,чему равна l
if l=true then
writeln('Число ',x,' есть в массиве.')
else
writeln('Числа ',x,' нет в массиве.');
<span>end.</span>
Не за что, надеюсь в ответ тоже будет благодарность. Прикреплен еще исходник
varn,i,min,c:integer;
a:array [1..100] of integer;
begin
n:=6;for i:=1 to n do
begin
writeln ('vvedi element massiva');
readln (a[i]);
end;
min:=a[1];
c:=1;
for i:=2 to n do
begin
if min>a[i] then begin min:=a[i];c:=i; end;
end;
writeln ('min=', min, ' nomer=',c);
readln;
<span>end.</span>
=IF(H8<45;IF(H8<30;"Претендент";"Кандидат в мастера спорта");"Мастер спорта")
(2^5 * 2^5 * 40 * 2^3) / (2^3 * 2^10) = (2^13 * 40) / 2^13 = 40 кбайт
Или
32 * 32 * 40 = 40960 количество символов
40960 * 8 = 327680 объём статьи в битах
327680 / 8 = 40960 объём статьи в байтах
40960 / 1024 = 40 объём статьи в Кбайтах
Это клавиши Backspace и Delete. Delete удаляет все по правую сторону от курсора, а Backspace по левую сторону.