Данил2007Г
28.04.2021 15:12

мне нужен краткий доклад по информатике на тему системы компьютерного перевода

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
pandatka4ewa
26.08.2020 13:35

signed main(){

   int n, m;

   cin >> n >> m;

   vector<vector<int>> a(n, vector<int> (m));

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

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

           cin >> a[i][j];

   int col = 0, mx = a[0][0];

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

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

           if(a[i][j] > mx){

               mx = a[i][j];

               col = j;

           }

       }

   }

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

       swap(a[i][0], a[i][col]);

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

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

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

       cout << "\n";

   }

}

0,0(0 оценок)
Ответ:
margaritamaurses
25.09.2020 16:08
// PascalABC.NET 3.0, сборка 1088
const
  nn=100;
type
  tA=array[1..nn] of integer;

procedure MaxElem(n:integer; var m:ta; var mx:integer);
var
  i:integer;
begin
  mx:=m[1];
  for i:=2 to n do
    if m[i]>mx then mx:=m[i]
end;

var
  a:tA;
  i,n,amax:integer;
begin
  Write('Введите количество элементов в массиве: '); Read(n);
  Randomize;
  Writeln('Элементы массива');
  for i := 1 to n do
  begin
    a[i]:=Random(101)-50;
    Write(a[i],' ')
  end;
  Writeln;
  MaxElem(n,a,amax);
  Writeln('Максимальный элемент равен ',amax);
end.

Тестовое решение:
Введите количество элементов в массиве: 15
Элементы массива
-8 41 7 -40 -1 1 -18 5 -28 26 50 13 -42 39 -43
Максимальный элемент равен 50
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота