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

ИНФОРМАТИКА! ВО НА НУЖНА ПО ДАННОЙ ЗАДАЧЕ!! ЗАРАНЕЕ

👇
Ответ:
tayna73p00m0k
tayna73p00m0k
12.11.2022

1)

#include <iostream>

#include <cmath>

#include <vector>

#include <algorithm>

using namespace std;

signed main() {

   ios_base::sync_with_stdio(0);

   cin.tie(0);

   cout.tie(0);

   int n;

   cin >> n;

   int a[n][n];

   int mn = INT_MAX;

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

   {

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

       {

           cin >> a[i][j];

           mn = min(mn,a[i][j]);

       }

   }

   vector<pair<int,int>> vec;

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

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

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

               vec.push_back(make_pair(i,j));

   cout << mn << "\n";

   for(auto i: vec)

       cout << i.first << " " << i.second << "\n";

   

}

2)

#include <iostream>

#include <cmath>

#include <vector>

#include <algorithm>

using namespace std;

signed main() {

   ios_base::sync_with_stdio(0);

   cin.tie(0);

   cout.tie(0);

   int n,m;

   cin >> n >> m;

   int a[n][m];

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

   {

       int mid = 0;

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

       {

           cin >> a[i][j];

           mid += a[i][j];

       }

       mid /= m;

       a[i][0] = mid;

   }

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

   {

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

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

       cout << "\n";

   }

}

4,8(49 оценок)
Открыть все ответы
Ответ:
VeronaKotik
VeronaKotik
12.11.2022

=СУММ(В2:B4), =СРЗНАЧ(В2;B8)

=СУММ(B3;B6), =CРЗНАЧ(B6;B7)

=СУММ(В3;B6), =СРЗНАЧ(В2;B8)

Объяснение:

B2 = 20

B3 = 12

B4 = 7

B5 = 9

B6 = 27

B7 = 3

B8 = 10

1.

=СУММ(В2:B4) = 20 + 12 + 7 = 39

=СРЗНАЧ(В2;B8) = (20 + 10) / 2 = 15

2.

=СУММ(B2:B8) = 20 + 12 + 7 + 9 + 27 + 3 + 10 = 88

=СРЗНАЧ(B2;B5) = (20 + 9) / 2 = 14,5

3.

=СУММ(В3;B6) = 12 + 27 = 39

=СРЗНАЧ(В5;В7) = (9 + 3) / 2 = 6

4.

=СУММ(B3;B6) = 12 + 27 = 39

=CРЗНАЧ(B6;B7) = (27 + 3) / 2 = 15

5.

=СУММ(B2;B7) = 20 + 3 = 23

=СРЗНАЧ(В2;B8) = (20 + 10) / 2 = 15

6.

=СУММ(В3;B6) = 12 + 27 = 39

=СРЗНАЧ(В2;B8) = (20 + 10) / 2 = 15

4,8(38 оценок)
Ответ:
mariasmiles
mariasmiles
12.11.2022
Поскольку протестировать программу без файла нельзя, вот код, создающий нужный файл.

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

type
  fint=file of integer;

begin
  var f:fint;
  Assign(f,'integers.bin'); Rewrite(f);
  SeqRandom(20,-50,50).foreach(t->Write(f,t));
  f.Close
end.

А теперь, собственно, решение задачи

type
  fint=file of integer;

begin
  var f:fint;
  Assign(f,'integers.bin'); Reset(f);
  var k:=0;
  var b:integer;
  while not Eof(f) do begin
    Read(f,b);
    if b.IsEven then k+=1
    end;
  f.Close;
  Writeln('Кол-во четных компонент файла равно ',k)
end.

И последнее - программа распечатки значений компонент файла. Для контроля.

type
  fint=file of integer;

begin
  var f:fint;
  Assign(f,'integers.bin'); Reset(f);
  var b:integer;
  while not Eof(f) do begin Read(f,b); Print(b) end;
  Writeln;
  f.Close
end.
4,5(30 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ