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

Исполнитель вычислитетель массовость

👇
Ответ:
Fluttershy0
Fluttershy0
17.03.2021























Исполнитель вычислитетель массовость
Исполнитель вычислитетель массовость
4,6(91 оценок)
Открыть все ответы
Ответ:
ира967
ира967
17.03.2021

Объяснение:

using System;

namespace MyProgram {

class Programm {

static void Main(string[] args) {

int M = 5;

int N = 3;

int min = 0;

int max = 100;

int minOfRow = max;

int maxOfMin = min;

int[,] arr = new int[M, N];

Random r = new Random();

for (int i = 0; i < M; i++) {

minOfRow = max;

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

arr[i, j] = r.Next(min, max);

Console.Write(arr[i, j] + " ");

if (arr[i, j] < minOfRow) {

minOfRow = arr[i, j];

}

}

if (minOfRow > maxOfMin) {

maxOfMin = minOfRow;

}

Console.WriteLine();

}

Console.WriteLine(Environment.NewLine + maxOfMin.ToString());

Console.ReadKey();

}

}

}

Чи не?

4,8(78 оценок)
Ответ:
DimaKravshenco
DimaKravshenco
17.03.2021
Program Zadacha;
Const n = 10; m = 10; max = 15;
Var A: Array [1..n, 1..m] Of Integer;
B: Array[1..n] of Integer;
C: Array[1..n] of Real;
min, sum, count, i, j: Integer;
Begin
Randomize;
For i := 1 To n Do
For j := 1 To m Do
A[i, j] := Random(max * 2) - max;
min := max;
For i := 1 To n Do
For j := 1 To m Do
If A[i, j] < min Then
min := A[i, j];
For i := 1 To n Do
For j := 1 To m Do
If A[i, j] = min Then
B[i] := 1;
sum := 0;
count := 0;
For i := 1 To n Do
Begin
For j := 1 To m Do
If (A[i, j] Mod 2 = 0) And (A[i, j] >= 0) Then
Begin
sum := sum + A[i, j];
count := count + 1;
End;
C[i] := sum / count;
sum := 0;count := 0;
End;
WriteLn('Массив A:');
For i := 1 To n Do
Begin
For j := 1 To m Do
Write(A[i, j], ' ');
WriteLn;
End;
WriteLn('Массив B:');
For i := 1 To n DoWrite(B[i], ' ');
WriteLn;
WriteLn('Массив C (среднее арифметиеское положительных четных элементов массива A):');
For i := 1 To n Do
Write(C[i]:5:2, ' ');
ReadLn;
End.
4,7(60 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ