Var
a: array[1..100] of integer;
i, j, c: integer;
begin
Writeln('Массив ');
for i := 1 to 100 do begin
a[i] := random(201) - 100;
write(a[i], ' ');
end;
Writeln;
write('Введите число (от -100 до 100) ');
Readln(j);
for i := 1 to 100 do
if a[i] = j then begin c := c + 1; write(i, ' '); end;
Writeln;
if c>1 then write('В массиве число введённое вами есть в массиве и даже несколько (', c, '). Их индексы представлены выше') else if c = 1 then write('Число, которое вы ввели есть в массиве. Его индекс представлен выше') else write('Такого числа в массиве нет');
end.
8 бит = 1 байт
235 бит = 29,375 байт
29,375 байт = 0,029375 кбайт
235 бит = 2.9375E-08 гигабайт = 2.9375*10^-8 (2.9375 умножить на 10 в минус 8 степени)
Слишком большое число, перебрал все калькуляторы и составлял даже программы, но выбивало всегда это.
Разве вы не заметили ,что все ответы начинаются и заканчиваются единицей
16. редактирование
16. вырезание
17. слово
18. строка
19. клавиатура
20. копирование
21. гипертекст