М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
spikeeesz
spikeeesz
19.03.2023 06:50 •  Информатика

Впаскале.найти max элемент матрицы и их кол-во.

👇
Ответ:
angelinagalak
angelinagalak
19.03.2023
// PascalABC.NET 3.3, сборка 1579 от 18.11.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var (m,n):=ReadInteger2('Количество строк и столбцов в матрице:');
  Writeln('*** Исходная матрица [',m,',',n,'] ***');
  var a:=MatrRandom(m,n,-50,50);
  a.Println(4); Writeln(4*a.ColCount*'-');
  var s:=a.Rows.SelectMany(x->x);
  var max:=s.Max;
  Writeln('Максимум ',max, ' встречается ',
      s.Where(x->x=max).Count,' раз(а)')
end.

Пример
Количество строк и столбцов в матрице: 6 11
*** Исходная матрица [6,11] ***
  15  19  26   0 -21 -42   8  -9  -7  21  19
  -7 -49  23 -10   8  -9 -50 -31   8 -49 -36
 -42 -45 -49 -11   3 -45 -20  45 -29  39  13
   9  45 -19   9 -31 -38  29  27  39  13  36
 -47  28  44   8 -22  28   7 -25  -3  -9  39
   1  11  20  -1  40   5   2 -40  -2  -1  30

Максимум 45 встречается 2 раз(а)
4,4(53 оценок)
Открыть все ответы
Ответ:
topaxx100
topaxx100
19.03.2023

#include <iostream>

#include <cmath>

#include <locale.h>

using namespace std;

int main(int argc, char **argv)

{

setlocale(0, "Russian");

int a, b, c;

double p, res;

cout << "Введите длины сторон треугольника:"<<endl;

cin >> a >> b >> c;

if (a + b > c && a + c > b && b + c > a) {

 p = (a + b + c) / 2.0;

 res = sqrt(p * (p - a) * (p - b) * (p - c));

 cout << "Площадь треугольника: "<< res <<endl;

}

else

 cout << "Невозможно вычислить площадь!" <<endl;

return 0;

}

4,5(64 оценок)
Ответ:
Var a,b:longint;
c:text;
begin
assign(c, 'Input.txt');
reset(c);
read(c,a,b);
close(c);
assign(c, 'Output.txt');
rewrite(c);
writeln(c,a,' ',b);
close(c);
end.

P.S. в файле Input.txt введены 2 числа через пробел, эти же числа копируются в Output.txt, для проверки программы, создавай папку и 2 файла Input.txt и Output.txt, далее копируй текст программы в паскаль и сохраняй программу в ту папку где 2 файла в формате паскаля (*.pas), и запускай программу, числа из текстового документа Input копируются в Output
4,8(45 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ