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

Нужно поменять местами макс. и мин. значения. что не так? program matrica; uses crt; const n=3; m=4; a=-20; b=20; var i, j, min, max, t: integer; y: array [1..n, 1..m] of integer; begin clrscr; randomize; writeln('matrica y'); min: =0; max: =0; t: =0; for i: =1 to n do begin for j: =1 to m do begin y[i,j]: =trunc((b-a)*random+a); write(y[i,j]: 6); if y[i,j]max then max: =y[i,j]; end; writeln; end; writeln('минимальное значение = ', min); writeln('максимальное значение = ', max); t: =min; min: =max; max: =t; for i: =1 to n do begin for j: =1 to m do begin write(y[i,j]: 6); end; writeln; end; readkey; end.

👇
Ответ:
teyachichinadze1
teyachichinadze1
29.10.2021
Program matrix;
var  A: array[1..10, 1..10] of integer;
i, j, mini, minj, maxi, maxj, temp: integer;
begin  Randomize;
  for i := 1 to 10 do  begin
    for j := 1 to 10 do    begin
      A[i, j] := random(100);
      write(A[i, j], ' ');
   end;
   writeln;
   end;
   mini := 1;
   minj:=1;
   maxi := 1;
   maxj:=1;
   for i := 1 to 10 do 
   for j := 1 to 10 do
    begin 
     if A[i, j] < A[mini,minj] then  begin 
      mini := i;
      minj := j;
     end;
      if A[i, j] > A[maxi,maxj] then      begin
       maxi := i;
       maxj := j;
      end;
      end;
      WriteLn('min = ',A[mini,minj],' это ',mini,' ряд ',minj,' столбца.' );
      WriteLn('max = ',A[maxi,maxj],' это ',maxi,' ряд ',maxj,' столбца.' );
       temp := A[maxi, maxj];
       A[maxi, maxj] := A[mini, minj];
       A[mini, minj] := temp;
       writeln;
       for i := 1 to 10 do  begin
        for j := 1 to 10 do
         write(A[i, j], ' ');
         writeln;
       end; 
       readln;
       end.
temp - переменная для временного хранения минимальных и максимальных элементов.
4,7(19 оценок)
Открыть все ответы
Ответ:
17312
17312
29.10.2021

#include <iostream>

#include <cstdlib>

using namespace std;

int main()

{

setlocale(LC_ALL,"russian");

int num;

cout << "Введите размер массива: ";

cin >> num;

int a[num];

int sum = 0;

cout << "Вводите элементы массива поочерёдно: " << endl;

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

{

cin >> a[i];

if(a[i]%5==0 && a[i]%2==0) // находим в массиве числа, кратные 5 и 2

{

 sum = sum + 1;

}

}

cout << "Чётных чисел, кратных пяти и двум: " << sum << endl;

system("pause");

return 0;

}

4,5(9 оценок)
Ответ:
sergeevan73
sergeevan73
29.10.2021

9877

Объяснение:

Ну давайте вместе решим. Что такое 8? Это 2 в 3 степени. Тогда что такое 8^4024? Это (2^3)^4024 или 2^12072

4^1605 аналогично 2^3210.

Ну и 2^1024

126 в бинарной системе это 0111 1110

Теперь попробуем это вместе сложить.

Если призадуматься, то 2^N это значит в бинарной записи на N-той позиции стоит единица.

Значит 2^12072 это 1 и 12071 нулей

Далее у нас отнимается 2^3210. В оригинальном числе на этом позиции 0, значит нам следует занять числа и в итоге получается что у нас с 12070 позиции по 3210 будет стоять единицы.

Далее добавляется одна единица на 1024ой позиции.

На данный момент у нас 8861 единиц.

Чтобы отнять 126 нам надо будет срезать одну единицу на 1024ой позиции чтобы занять в меньшие биты. Однако, с 1023 по 1 позицию у нас будут стоять единицы.

8861 - 1 + 1023 = 9883

Однако 126 имел единицы в количестве 6 штук.

9883 - 6 = 9877

ответ 9877

4,4(13 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ