Умистера фокса есть карточки, на каждой стороне которых нарисована или машина или какой-то зверь. карточек с животными 10, карточек с машинами 13, карточек, где на одной стороне машина, а на другой – зверь, 5. сколько карточек, у которых на обеих сторонах объекты одного вида? (зверь-зверь или машина-машина).

👇

Увидеть ответ

Ответ:

MiyaGi228

30.10.2021

ответ:

5 карточек кншно, а вообще я хз

4,4(56 оценок)

Открыть все ответы

Ответ:

msteep6

30.10.2021

Const - постоянная т.е M - строк, N - стобцов => размерность матрицы MxN или 3х4.
Дальше объявляются переменные i,j - целочисленные и массив A вещественный и S тоже вещественный, т.е. дробное число.
В теле программы вызывается процедура Randomize - включает генератор случайных чисел.
Затем обходится массив: внешний цикл идет по строкам, внутренний по стобцам. Обнуляется переменная S.
В цикле заполняется массив случайными числами. Т.е. каждому элементу i строки и j столбцу в матрице присваивается значение.
Затем выводится на печать при и суммирует все элементы матрицы в переменную S.
Потом выводит Значение суммы поделенной на количество столбцов.
Все.
З.Ы. объяснять по-русски не умею =)

4,8(61 оценок)

Ответ:

autist1707

30.10.2021

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

1. Со вс массивом

begin
var (n,m):=ReadInteger2('Количество строк и столбцов в массиве:');
var a:=MatrRandom(n,m,-99,99);
Writeln('*** Исходный массив ***'); a.Println(4);
Writeln(4*a.ColCount*'-');
var min:=integer.MaxValue;
var b:array of integer;
for var i:=1 to a.RowCount-1 do begin
    b:=a.Row(i); // строка в одномерном массиве
    var s:=b.Sum;
    if s<min then min:=s;
    end;
var max:=integer.MinValue;
for var j:=1 to a.ColCount-1 do begin
    b:=a.Col(j); // колонка в одномерном массиве
    var s:=b.Sum;
    if s>max then max:=s;
    end;
Writeln('Минимальная сумма по строкам ',min);
Writeln('Максимальная сумма по колонкам ',max);
end.

Пример
Количество строк и столбцов в массиве: 5 8
*** Исходный массив ***
-89 16 35 74 -76 -3 -3 -25
54 -24 12 13 63 -60   4 92
74 82 12 12 -1 11 -29 -19
-72 -79 -3 -22 71 -53 57 -30
65 -25   2 -25 82 -73   4 -23

Минимальная сумма по строкам -131
Максимальная сумма по колонкам 139

2. Без вс массива

begin
var (n,m):=ReadInteger2('Количество строк и столбцов в массиве:');
var a:=MatrRandom(n,m,-99,99);
Writeln('*** Исходный массив ***'); a.Println(4);
Writeln(4*a.ColCount*'-');
Writeln('Минимальная сумма по строкам ',
      a.Rows.Select(row->row.Sum).Min);
Writeln('Максимальная сумма по колонкам ',
      a.Cols.Select(col->col.Sum).Max);
end.

Пример
Количество строк и столбцов в массиве: 7 4
*** Исходный массив ***
-44 32 -66 -71
56 -99 83 27
-30 39 -65 -95
-40   6 37 37
75 23 -86 80
-12 98 -65 28
47 -85 25 -6

Минимальная сумма по строкам -151
Максимальная сумма по колонкам 52

4,7(83 оценок)

Это интересно:

Взаимоотношения

21.08.2022

Измены в браке: что делать и как сохранить семью?...

Философия-и-религия

24.12.2021

Как надеть хиджаб: советы и рекомендации...

14.02.2021

Хочешь жить счастливо? Узнай, что для этого нужно!...

Взаимоотношения

21.07.2022