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

1. В текстовом процессоре создайте новый документ. 2. Создайте нумерованный список «Достопримечательности России» по своему
усмотрению или включив в него наименования из следующего перечня:
о
• Московский Кремль и Красная площадь;
Исторический центр Санкт-Петербурга;
• Ленские столбы;
• Соловецкие острова;
• Белокаменные храмы Владимира и Суздаля;
• Озеро Байкал;
Долина гейзеров и вулканы Камчатки;
• Горы Алтая;
Куршская коса;
Ласточкино гнездо в Крыму.
о
3. Отсортируйте список достопримечательностей в алфавитном порядке.
4. Не забудьте озаглавить список.
5. Сохраните результат в личной папке в файле с именем Список1.rtf.

Показать ответ
Ответ:
dkcmvmcmf
dkcmvmcmf
06.09.2021 18:37
В общем, т.к. ты мне не ответил - лови две программы:
1)
Program dasf;
var b,c,i: integer;   
A: Array[1..100] of real;   
D: Array[1..100] of real;
begin
Writeln('Введите размерность массива D');
readln(b);
For i:=1 to b do 
begin   
Writeln('Введите элемент массива №',i);   
readln(D[i]); 
end;
Writeln('Массив А:');
For i:=1 to b do 
begin   
If i mod 2=1 then A[i]:=5+(D[i]*D[i])     
else A[i]:=D[i]/i;   
Writeln(A[i]); 
end;
end.

2)
Program fgsadg;
var i,b,x,y,z,k,t: integer;
begin 
Writeln('Введите сколько чисел будет использоваться:'); 
readln(b); 
Writeln('Введите х:'); 
readln(x); 
Writeln('Введите число №',1); 
readln(z); 
k:=0; 
For i:=2 to b do   
begin     
Writeln('Введите число №',i);     
readln(y);     
If z+y=x then k:=k+1;     
z:=y;   
end; 
Writeln(k); 
end. 
Если что-то не будет работать - отпиши, мог кое-что удалить случайно при переносе.            
0,0(0 оценок)
Ответ:
ДаняКашин
ДаняКашин
22.08.2022 13:26

ЯП: С++ | можно не писать std:: , если использовать пространство имен: using namespace std;

#include <iostream>

int main() {

const int SIZE = 10;

int regim, sum, max, count;

int arr[SIZE];

for (int i = 0; i < SIZE; i++)

{

 std::cin >> arr[i]; // вводим элементы массива

 std::cout << arr[i] << "\t"; // выводим массив в консоль

}

std::cin >> regim;

if ((regim > 0) && (regim < 4))

{

 if (regim == 1)

 {

  for (int i = 0; i < SIZE; i++)

  {

   sum += arr[i]; // или sum = sum + arr[i];

  }

  std::cout << "Сумма элементов массива = " << sum << std::endl;

 }

 else if (regim == 2)

 {

  max = arr[0];

  for (int i = 0; i < SIZE; i++)

  {

   if (max < arr[i])

    max = arr[i];

  }

  std::cout << "Максимальный элемент в массиве = " << max << std::endl;

 }

 else

 {

  for (int i = 0; i < SIZE; i++)

  {

   if (arr[i] < 0)

    count++;

  }

  std::cout << "Число отрицательных элементов в массиве = " << count << std::endl;

 }

}

else

 std::cout << "Доступен только 1-3 режим!" << std::endl;

return 0;

}

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