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

Vba программа, которая выводит на лист таблицу значений функции y = 5*x2-3*x-10 в диапазоне от -4 до 4, с шагом изменения аргумента в 0.5

Показать ответ
Ответ:
AnyaFOX9
AnyaFOX9
31.03.2020 19:07

bool ok1(int a, int b, int c){

  return (a+b > c && a+c > b && b+c > a) && min(a,min(b,c)) > 0;

}

bool ok2(int a, int b, int c){

  return ok1(a,b,c) && (a == b || a == c || b == c);

}

signed main(){

  const int n = 3, m = 7;

  int arr[n][m];

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

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

          cin >> arr[i][j];

  vector<int> ans;

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

      if(ok2(arr[0][j],arr[1][j],arr[2][j]))

          ans.push_back(j+1);

  cout << ans.size() << "\n";

  for(auto i: ans)

      cout << i << " ";

}

Подробнее - на -

Объяснение:

0,0(0 оценок)
Ответ:
atopio
atopio
02.12.2021 03:02
//Pascal ABC.NET v3.1 сборка 1172

Const
 n=5;

Var
 ma:array[1..n,1..n] of integer;
 i,j,max,maxj,a:integer;
begin
max:=-1;
randomize;
 writeln('Matrix:');
  for i:=1 to n do
   begin;
   for j:=1 to n do
    begin;
     ma[i,j]:=random(10);
     write(ma[i,j]:4);
    end;
   writeln;
   end;
  for j:=1 to n do
  begin
   for i:=1 to n do
     a:=a+ma[i,j];
   if a>max then
    begin
     max:=a;
     maxj:=j;
    end;
    a:=0;
  end;
write('Максимальный по сумме столбец:',maxj);
end.

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