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

Решить на языке Python. Возраст дерева. Подсчет годовых колец дерева дает четкое представление о возрасте дерева. Годовое кольцо формируется за один год. Используйте элемент интерфейса Canvas, чтобы показать, как на картинке выглядит годовое кольцо 5-летнего дерева. Затем, используя метод c r e a t e _ t e x t (), отсчитайте годовые кольца от середины, а затем наружу, указав годы, связанные с этим кольцом (рис. 2).

Показать ответ
Ответ:
BadKsu
BadKsu
08.04.2023 18:30

#include <iostream>

#include <vector>

using namespace std;

int main()

{

   int s = 0, l = 1, n;

   cin >> n;

   vector <int> v(n);

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

   {

       cin >> v[i];

       if (v[i] > 0)

       {

           s += v[i];

       }

   }

   int imn = 0, imx = 0;

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

   {

       if (v[i] < v[imn])

       {

           imn = i;

       }

       if (v[i] > v[imx])

       {

           imx = i;

       }

   }

   if (imn > imx)

       {

           swap (v[imn], v[imx]);

       }

   for (int i = imn; i < imx; i++)

   {

       if (v[i] > 0)

       {

           l *= v[i];

       }

   }

   cout << s << " " << l;

   return 0;

}

Объяснение:

0,0(0 оценок)
Ответ:
алекс1611
алекс1611
23.03.2020 21:56

Решение

Pascal- Python

var

 a: array[1..1000] of real;

 n, i, mi, ma: integer;

 max, min: real;

 

begin

 write('Введите N: ');

 readln(n);

 for i := 1 to n do  

 begin

   write('Введите ', i, ' элемент: ');

   readln(a[i]);

   if i = 1 then begin max := a[i]; min := a[i]; ma := i; mi := i; end;

   if min > a[i] then begin min := a[i]; mi := i; end;  

   if max < a[i] then begin max := a[i]; ma := i; end;

 end;

 writeln;

 writeln('Ваш массив: ');

 for i := 1 to n do writeln(i, ') ', a[i], ' ');

 writeln;

 writeln('Массив после замены Max на Min: ');

 a[mi] := a[ma] + a[mi];

 a[ma] := a[mi] - a[ma];

 a[mi] := a[mi] - a[ma];

 for i := 1 to n do writeln(i, ') ', a[i], ' ');

end.

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