Дан массив целых чисел a(n) (n=15) заполненный случайным образом числами из промежутка [-20, 50]. заменить единицей все нечетные по значению элементы данного массива .
Const n=20; var a:array[1..n]of integer; i,b,k,c,f,g,h:integer; begin for i:=1 to n do a[i]:=Random(70)-20; for i:=1 to n do write(a[i],' '); writeln; for i:=1 to n do begin if (a[i] mod 5 = 0) and (a[i] mod 10<>0) or (a[i]=50) then begin b:=i; for b:=i to (n-1) do a[i]:=a[i+1]; end; end; for i:=1 to n do write(a[i],' '); write('введите к '); read(k); for i:=1 to n do begin if a[i] mod i = 0 then begin c:=i; for i:=n downto c+1 do begin a[i]:=a[i-1]; a[c+1]:=k; end;end;end; for i:=1 to n do write(a[i],' '); writeln; f:=0; g:=0; for i:=n downto 1 do begin if (a[i]>0) then f:=i; end; if a[f]=0 then write('нет положительных '); for i:=n downto 1 do begin if (a[i]<0) then g:=i; end; if (a[g]=0) then write('нет отрицательных '); if (a[f]<>0) and (a[g]<>0) then begin h:=a[f]; a[f]:=a[g]; a[g]:=h; end; for i:=1 to n do write(a[i],' '); writeln; end.
Segyn1218
28.03.2020
1. c) Информационное пространство - это все, откуда пользователь может хотя бы что-то прочитать 2. с). Во-первых, частота измеряется в герцах, а не в каких-то битах или байтах - это мы знаем еще из физики. Во-вторых, дискретизация - это пересчет уровня сигнала в некие фиксированные уровни, т.е. он связан с измерением величины сигнала. 3. б) Есть понятие "иерархическая файловая система", когда файлы одного уровня "вкладываются" в папку вышележащего уровня и это вложение многократно повторяется. Ближе всего к этому понятию ответ б) 4. д) Управление связано с передачей информации управляемому объекту. Но чтобы управлять, надо получать от этого объекта информацию и каким-то образом её обрабатывать, принимая некоторые решения. Хранить эту информацию надо лишь короткое время. Для примера: управление автомобилем. Водитель перед перекрестком смотрит по сторонам и принимает решение об управлении автомобилем. Но, проехав перекресток, он уже не думает о том, как его проезжал (если не брать в расчет присущие человеку эмоции).
Karpova
28.03.2020
1а) Почти любые, даже в играх есть карты 1б) В данном случае похоже подразумевается навигатор по картам. Т.е. некое ПО позволяющая работать с моделями карт, создавать разные виды, передвигаться по картам и тд 1в) Собственно карты разных типов и маштабов, объекты на картах с данными об этих объектах, дороги как связи и данные о них тоже, данные о транспорте и тд 1г) С векторными изображениями легче работать в плане маштабирования, изменения, растягивания и тп. Потому все изображения приводятся к векторному типу частично или полностью.
2) Как пример возьмем ЯндехКарты. Нахождение обьекта по адресу, нахождение по текущему местоположению если есть чем определить, выдача данных об обьекте (как набор данных об организациях которые там находятся), проложение маршрута от точки к точке, навигация пробок, навигация по фото местности (панорама), измерение расстояния некой траектории (линейка) и тд
3) Быстрее всего найти по названию поиском, тут опорными точками могут область и район, если вдруг объектов с таким названием больше одного Если искать зрительно, то легче всего ориентируясь по водным объектам и горам, возможно лесам, если они показаны. Другим городам и областям. Но для этого надо знать примерно карту
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Дан массив целых чисел a(n) (n=15) заполненный случайным образом числами из промежутка [-20, 50]. заменить единицей все нечетные по значению элементы данного массива .
var a:array[1..n]of integer;
i,b,k,c,f,g,h:integer;
begin
for i:=1 to n do a[i]:=Random(70)-20;
for i:=1 to n do
write(a[i],' ');
writeln;
for i:=1 to n do begin
if (a[i] mod 5 = 0) and (a[i] mod 10<>0) or (a[i]=50) then begin
b:=i;
for b:=i to (n-1) do
a[i]:=a[i+1];
end; end;
for i:=1 to n do
write(a[i],' ');
write('введите к ');
read(k);
for i:=1 to n do begin
if a[i] mod i = 0 then begin
c:=i;
for i:=n downto c+1 do begin
a[i]:=a[i-1];
a[c+1]:=k;
end;end;end;
for i:=1 to n do
write(a[i],' ');
writeln;
f:=0; g:=0;
for i:=n downto 1 do begin
if (a[i]>0) then f:=i;
end;
if a[f]=0 then write('нет положительных ');
for i:=n downto 1 do begin
if (a[i]<0) then g:=i;
end;
if (a[g]=0) then write('нет отрицательных ');
if (a[f]<>0) and (a[g]<>0) then begin
h:=a[f]; a[f]:=a[g]; a[g]:=h; end;
for i:=1 to n do
write(a[i],' ');
writeln;
end.