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

нарисовать блок-схему В массиве размером NxN найти наименьшее число и обнулить все элементы, кроме элементов главной диагонали.
Есть матрица: 2 4 5

4 8 0

6 5 1

Находим меньшее число: 0

Обнуляем все, кроме главной диагонали:

2 0 0

0 8 0

0 0 1

#include // подключаем библиотеку потокового ввода/вывода (cout/cin/...);

#include // подключем библиотеку для возможности изменения стандартного генератора чисел (srand(...));

int main()

{

using namespace std; // используем пространство имен std;

setlocale(LC_ALL, "ru"); // возможность использования русского текста в консоли;

srand(time(NULL)); // генератор случайных числе;

const int N = 3; // константный размер массива;

int A[N][N]; // обьявление двумерного массива;

cout A[i][j]) // если в теле условия/цикла ожидается 1 инструкция, то { } можно не ставить;

min = A[i][j];

}

}

// обнуляем все элементы массива, кроме элементов, расположеных на главной диагонали:

for (int i = 0; i < N; i++) // проходим по двумерному массиву используя 2 цикла;

{

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

{

// если i будет равен j, то получится что мы идем по глвной диагонали: i=1:j=1, i=2:j=2, i=3:j=3 ...

// поэтому, если i не равен j обнуляем элемент;

if (i != j)

A[i][j] = 0;

}

}

cout << "\nРезультат: " << endl;

for (int i = 0; i < N; i++) // проходим по двумерному массиву используя 2 цикла;

{

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

{

cout << A[i][j] << '\t'; // выводим то что получилось в консоль;

}

cout << endl;

}

cout << "\nМинимальный элемент в двумерном массиве = " << min << endl;

return 0;

}

👇
Открыть все ответы
Ответ:
RobloxTop
RobloxTop
27.12.2021
Ми́кроэргономика занимается исследованием и проектированием систем «человек-машина».

Ми́диэргономика исследует производственные взаимодействия на уровне рабочих мест и производственных задач. К ведению мидиэргономики относится проектирование структуры организации помещений, планирование и установление расписания работ, гигиена и безопасность труда.

Ма́кроэргономика исследует и проектирует систему в целом, учитывая все факторы: технические, социальные, организационные.

Целью макроэргономики является гармоничная, согласованная и надежная работы всей системы, "как единого организма".

Виды совместимости среды «человек-машина»

Антропометрическая совместимость — учёт размеров тела человека, возможности обзора внешнего пространства, положения оператора при работе.

Сенсомоторная совместимость — учёт скорости моторных операций человека и его реакций на различные виды раздражителей.

Энергетическая совместимость — учёт силовых возможностей человека при определении усилий, прилагаемых к органам управления.

Психофизиологическая совместимость — учёт реакции человека на цвет, цветовую гамму, частотный диапазон подаваемых сигналов, форму и другие эстетические параметры машины.
4,6(83 оценок)
Ответ:
Карапиди
Карапиди
27.12.2021
var i: integer; begin // С С С Вывод последовательности 1 3 5 7 9var i,x: integer; begin // С и промежуточной переменной x := 1; for i := 1 to 5 do begin write(x,' '); x := x + 2; end; writeln;   // С без промежуточной переменной for i := 1 to 5 do write(2*i-1,' '); writeln;   // С С Сумма и произведение введенных чиселКод на Pascalvar i: integer; s,p: real; x: real; begin writeln('Введите 10 чисел: '); s := 0; p := 1; for i := 1 to 10 do begin read(x); s := s + x; p := p * x; end; writeln('Сумма введенных чисел = ',s); writeln('Произведение введенных чисел = ',p); end.Код на PascalABC.NETvar s,p: real; begin writeln('Введите 10 чисел: '); s := 0; p := 1; for var i := 1 to 10 do begin var x: integer; read(x); s += x; p *= x; end; writeln('Сумма введенных чисел = ',s); writeln('Произведение введенных чисел = ',p); end.Вычисление n!Код на Pascalvar n,fact: integer; i: integer; begin write('Введите n (n<=13): '); readln(n); fact := 1; for i := 2 to n do fact := fact * i; writeln(n,'! = ',fact); end.Код на PascalABC.NETvar n: integer; begin write('Введите n (n<=13): '); readln(n); var fact := 1; for var i := 2 to n do fact *= i; writeln(n,'! = ',fact); end.Вычисление AnКод на Pascalvar n,i: integer; a,p: real; begin write('Введите a,n: '); readln(a,n); p := 1; for i := 1 to n do p := p * a; writeln(a,' в степени ',n,' = ',p); end.Код на PascalABC.NETvar n: integer; a: real; begin write('Введите a,n: '); readln(a,n); var p := 1.0; for var i := 1 to n do p *= a; writelnFormat('{0} в степени {1} = {2}',a,n,p); end.
4,7(95 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ