kucherenkolshaLexa
22.10.2022 10:13

Нужно нарисовать в PascalABC весь этот рисунок​


Нужно нарисовать в PascalABC весь этот рисунок​

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
kmatachp01gzm
24.01.2020 23:45

1.

#include <iostream>

#include <algorithm>

#include <iomanip>

#include <cmath>

using namespace std;

int main()

{

   long long b[31], i;

   for(i = 0; i < 30; i++)

   {

       b[i] = rand();

       cout << b[i] << " ";

   }

   for(i = 0; i < 30; i++)

       if(b[i] > 0)

       cout << i << " " << b[i] << endl;

   return 0;

}

2.

#include <iostream>

#include <algorithm>

#include <iomanip>

#include <cmath>

using namespace std;

int main()

{

   long long b[5][5], i, j, sum = 1;

   for(i = 0; i < 5; i++)

       for(j = 0; j < 5; j++)

       {

           cin >> b[i][j];

           if(i == j)

               sum *= b[i][i];

       }

   for(i = 0; i < 5; i++)

       {

       for(j = 0; j < 5; j++)

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

           cout << endl;

       }

       cout << sum << endl;;

   return 0;

}

Объяснение:

0,0(0 оценок)
Ответ:
лунтик73
09.03.2021 20:41

1.

#include <iostream>

#include <algorithm>

#include <iomanip>

#include <cmath>

using namespace std;

int main()

{

   long long a[20], i, sum = 0, sum1 = 0;

   for(i = 0; i < 20; i++)

   {

       cin >> a[i];

       if(a[i] < 0)

       {

           sum += a[i];

           sum1++;

       }

   }

   for(i = 0; i < 20; i++)

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

   cout << endl;

   cout << sum << " " << sum1 << " " << sum / sum1 << endl;

   return 0;

}

2.

#include <iostream>

#include <algorithm>

#include <iomanip>

#include <cmath>

using namespace std;

int main()

{

   long long b[6][4], i, j;

   for(i = 0; i < 6; i++)

   {

       for(j = 0; j < 4; j++)

       {

           b[i][j] = rand() % 100;

           if(b[i][j] > 9 && b[i][j] < 100)

               b[i][j] = 10;

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

       }

       cout << endl;

   }

   return 0;

}

Объяснение:

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