Semykina2003
09.05.2021 01:51

Изучение програмный код и допишите недостающие слова (числа) , начиная ст 2 предложения ​

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
Ali20091
22.09.2020 01:12

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 оценок)
Ответ:
diana125sirena62rus
03.02.2020 07:47
Delphivar  a1, a2: array of integer;  n, c, i: integer; procedure PrintDescending(a: array of integer); var i, j, max: integer; begin  for i := 0 to Length(a) - 1 do  begin    for j := 0 to Length(a) - 1 do      if a[j] > a[max] then max := j;    Write(a[max], ' ');    a[max] := -10001;  end; end; begin  //Запрашиваем ввод длины массива:  Write('Введите длину массива: ');  Read(n);    //Устанавливаем длину массивов:  SetLength(a1, n);  SetLength(a2, n);    //Заполняем первый массив случайными числами:  for i := 0 to n - 1 do    a1[i] := Random(201) - 100;    //Заполняем второй массив только нечётными элементами первого:  for i := 0 to n - 1 do    if Abs(a1[i]) mod 2 = 1 then      begin      a2[c] := a1[i];      c := c + 1;    end;    //Урезаем второй массив:  SetLength(a2, c);    //Выводим первый массив:  for i := 0 to n - 1 do    Write(a1[i], ' ');  Writeln;    //Выводим второй массив в порядке убывания:  if c = 0 then Write('Нечётных элементов нет.')  else PrintDescending(a2); end.

Пример работы:


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