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

1. Для чего предназначены за Какие виды за вы знаете?
3. С чего можно создавать за Для чего используют за с параметром?
5. Как можно сделать вычисления в за Что означает запись в условии за Можно ли создавать за на основе нескольких таблиц?

Показать ответ
Ответ:
Electron57
Electron57
22.02.2023 18:37

1)

#include <iostream>

using namespace std;

int main ()

{

   int k = 0;

   int n, m, a[100][100];

   cin >> n >> m;

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

       for (int j = 0; j < m; j++){

           cin >> a[i][j];      

       }

   }

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

       for (int j = 0; j < m; j++){

        if(a[i][j]==a[j][i]){

        k++;

        }

       }

   }

   cout<<"Количество элементов a[i][j] = a[j][i], " << k << endl;

}

2)

#include <iostream>

using namespace std;

int main ()

{

   int a[100], n, m,s = 0;

   cout << "Введите количество элементов массива" << endl;

   cin >> n;

   cout << "Введите заданное число" << endl;

   cin >> m;

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

       cout << "Введите " << i+1 << " элемент массива" << endl;

       cin >> a[i];

   }

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

       if(a[i] > m){

           s+=a[i];

       }

   }

   cout << "Сумма элементов, больших заданного числа "<< s << endl;

   

}

0,0(0 оценок)
Ответ:
alenabarsukova20
alenabarsukova20
15.08.2020 13:29

Var

N,A:integer;

Begin

Write('N = ');Read(N);

A:=0;

While N>0 do

   Begin

   if (N mod 10) > A then A:= N mod 10;

   N:=N div 10;

   End;

Write(A)

End.

Var

N,A,B:integer;

C:boolean;

Begin

Write('N = ');Read(N);

A:=-1;

B:=-2;

C:=false;

While N>0 do

   Begin

   if A=B then C:=true;

   if N>0 then

      Begin

      A:=N mod 10;

      N:=N div 10;

      End;

   if A=B then C:=true;

   if N>0 then

      Begin

      B:=N mod 10;

      N:=N div 10;

      End;

   End;

if A=B then C:=true;

if C then Write('Есть')

else Write('Нет')

End.

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