В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
lizazimovets1
lizazimovets1
20.02.2023 13:30 •  Информатика

с информатикой. даю. Информатичка дала жесткую домашку))


с информатикой. даю. Информатичка дала жесткую домашку))

Показать ответ
Ответ:
lew8
lew8
20.05.2022 09:56

Что ?

Объяснение:

Саха́ра (араб. الصحراء الكبرى‎, Эс-Сахра-эль-Кубра; фр. Sahara) — крупнейшая жаркая пустыня и вторая, после Антарктической, пустыня на Земле, расположенная на севере Африканского континента. Вытянута примерно на 4800 км с запада на восток и от 800 до 1200 км с севера на юг; имеет площадь около 8,6 млн км² (около 30 % площади Африки, немногим больше площади Бразилии). С запада Сахара омывается Атлантическим океаном, с севера ограничена горами Атлас и Средиземным морем, а с востока — Красным морем. Южная граница пустыни определяется зоной малоподвижных древних песчаных дюн на 16° с.ш., к югу от которой располагаетсяСахель — переходный регион к Суданской саванне[1].

Сахара частично захватывает территорию более десяти государств —Алжира, Египта, Западной Сахары, Ливии, Мавритании, Мали,Марокко, Нигера, Судана, Туниса и Чада. Обширные пространства Сахары не заселены, оседлый образ жизни ограничен районамиоазисов, долинами рек Нил и Нигер.

Сахара не поддаётся категоризации в рамках одного типа пустыни, хотя преобладающим является песчано-каменистый тип. В составе пустыни различают множество регионов: Тенере, Большой Восточный Эрг, Большой Западный Эрг, Танезруфт, Эль-Хамра, Игиди, Эрг-Шеш,Аравийскую, Алжирскую, Ливийскую, Нубийскую пустыни, пустынюТалак.

Сахара постоянно увеличивается — каждый год пустыня расширяется к югу на 6÷10 км[2].

0,0(0 оценок)
Ответ:
Veronika509
Veronika509
15.05.2020 21:09
1.                                                                    

program raf105;

const

 n = 5;

var

 a:array[1..n] of integer;

 x, counter, i: integer;

begin

writeln('Заполните массив:');

for i:=1 to n do

 readln(a[i]);

write('Введите значение элемента, который нужно удалить: ');

readln(x);

for i:=1 to n do

begin

 if counter > 0

   then a[i-counter]:= a[i];

 if (a[i] = x) and (counter < 1)

   then counter:= counter + 1;

end;

writeln('Вывод:');

for i:=1 to n-counter do

 writeln(a[i]);

end.

2.                                                                    

program raf105;

const

 n = 5;

var

 a:array[1..n] of integer;

 x, counter, i: integer;

begin

writeln('Заполните массив:');

for i:=1 to n do

 readln(a[i]);

write('Введите значение элемента, который нужно удалить: ');

readln(x);

for i:=1 to n do

begin

 if counter > 0

   then a[i-counter]:= a[i];

 if a[i] = x

   then counter:= counter + 1;

end;

writeln('Вывод:');

for i:=1 to n-counter do

 writeln(a[i]);

end.

Язык PascalABC
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота