IrinaZoloeva
11.10.2021 23:05

Нарисовать блок схему
дан массив а(100) найти произведение элементов, больших нуля и меньших 50


Нарисовать блок схему дан массив а(100) найти произведение элементов, больших нуля и меньших 50

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
ыаррауцйу
12.01.2020 03:42
1а) Почти любые, даже в играх есть карты
1б) В данном случае похоже подразумевается навигатор по картам. Т.е. некое ПО позволяющая работать с моделями карт, создавать разные виды, передвигаться по картам и тд
1в) Собственно карты разных типов и маштабов, объекты на картах с данными об этих объектах, дороги как связи и данные о них тоже, данные о транспорте и тд
1г) С векторными изображениями легче работать в плане маштабирования, изменения, растягивания и тп. Потому все изображения приводятся к векторному типу частично или полностью.

2) Как пример возьмем ЯндехКарты. Нахождение обьекта по адресу, нахождение по текущему местоположению если есть чем определить, выдача данных об обьекте (как набор данных об организациях которые там находятся), проложение маршрута от точки к точке, навигация пробок, навигация по фото местности (панорама), измерение расстояния некой траектории (линейка) и тд

3) Быстрее всего найти по названию поиском, тут опорными точками могут область и район, если вдруг объектов с таким названием больше одного
Если искать зрительно, то легче всего ориентируясь по водным объектам и горам, возможно лесам, если они показаны. Другим городам и областям. Но для этого надо знать примерно карту
0,0(0 оценок)
Ответ:
vansob2003
10.07.2022 16:40
Program Pas02;
uses Crt;
const
  n=20;
var
  a:array[1..n] of real;
  i,k:integer;
  t:real;
begin
  Randomize;
  ClrScr;
  Writeln('Массив случайных чисел');
  k:=0;
  for i:=1 to n do begin
    a[i]:=Random(31)-15.0;
    Write(a[i]:6:1);
    if a[i]=10.0 then Inc(k)
    end;
  Writeln;
  Writeln('Количество элементов, равных 10: ',k);
  Write('Нулевые элементы ');
  k:=0;
  for i:=1 to n do
    if a[i]=0 then begin Inc(k); Write(i,' ') end;
  if k=0 then Writeln('отсутствуют') else Writeln;
  Writeln('Меняем местами элементы 3 и 6');
  t:=a[3];
  a[3]:=a[6];
  a[6]:=t;
  for i:=1 to n do
    Write(a[i]:6:1);
  Writeln
end.

Тестовое решение
Массив случайных чисел
   2.0 -12.0   8.0  -2.0  -1.0   3.0 -12.0  -9.0   3.0   9.0  -8.0   0.0  -7.0  -4.0 -12.0  10.0   9.0   5.0  -8.0   6.0
Количество элементов, равных 10: 1
Нулевые элементы 12
Меняем местами элементы 3 и 6
   2.0 -12.0   3.0  -2.0  -1.0   8.0 -12.0  -9.0   3.0   9.0  -8.0   0.0  -7.0  -4.0 -12.0  10.0   9.0   5.0  -8.0   6.0
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота