печатная машина может показаться совершенно безвредной, но иногда она может оказаться не в пользу вас или вашего бизнеса, поскольку не обеспечивает оптимального качества печати при необходимости больше всего. если принтер canon не подключен к вашему устройству или беспроводной сети (если принтер беспроводной), он не может печатать. итак, вам нужно сразу создать соответствующую настройку беспроводного принтера canon. если вам нужна дополнительная по этому поводу, то вы можете связаться с опытными ценителями. для этого вам просто нужно позвонить по бесплатному номеру и соединиться с ними по телефону.
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.
печатная машина может показаться совершенно безвредной, но иногда она может оказаться не в пользу вас или вашего бизнеса, поскольку не обеспечивает оптимального качества печати при необходимости больше всего. если принтер canon не подключен к вашему устройству или беспроводной сети (если принтер беспроводной), он не может печатать. итак, вам нужно сразу создать соответствующую настройку беспроводного принтера canon. если вам нужна дополнительная по этому поводу, то вы можете связаться с опытными ценителями. для этого вам просто нужно позвонить по бесплатному номеру и соединиться с ними по телефону.
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.