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

3. Високий рівень Написати код програми, яка зображує на полотні Canvas (зеленого кольору) 7 овалів
синього кольору з білим контуром (якщо натиснути цифру 1), або 4 п’ятикутника
оранжевого кольору з жовтим контуром (якщо натиснути цифру 2). Фігури
розташувати випадковим чином.
Надіслати фото коду програми та її результату в classroom.

Показать ответ
Ответ:
89539123898
89539123898
10.11.2021 05:21

#include <iostream>

using namespace std;

int main()

{

 

int n,kl=0;double sum = 0;

cin >> n;

int** a;

a= new int* [n];

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

 a[i] = new int[n];

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

{

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

  a[i][j] = rand() % 10;

}

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

{

 cout << endl;

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

  cout<<a[i][j]<<" ";

}

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

{

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

  if (a[i][j] != 0)

  {

   sum += a[i][j]; kl++;

  }

}

cout << endl << sum/kl;

}

Объяснение:

0,0(0 оценок)
Ответ:
tikatS66
tikatS66
28.10.2022 19:32

var  k_nuley, k_sosedey, i : integer;

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

Begin

read(n);

for i:= 1 to n do read(a[i]);

for i:= 1 to n do Begin

                if a[i] = 0 then Begin

                                    k_nuley := k_nuley + 1;

                                    if a[i + 1] < 0 then k_sosedey := k_sosedey + 1;

                                    if a[i - 1] < 0 then k_sosedey := k_sosedey + 1;

                                         end;

                         end;

write(k_nuley, k_sosedey);

end.

Объяснение:

derzay, bratka

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