Язык python. Матрица размерностью (1000,12) - 1000 строк, 12 столбцов написать цикл сдвига всей матрицы влево, причем например элемент (2,1) должен перескочить на (1,12). Т. е. первый элемент следующей строки должен перемещаться на последнее место предыдущей. На последнее место добавляется новое значение.
Мучаюсь с этим уже 3 дня, не получается
АХТУНГ!
Произведение может вылетать за лимиты Long Long.
Ведь лимит лонг лонг вправо есть 9 223 372 036 854 775 807
И если увеличить количество чисел в массиве, допустим, до 100, то в теории может выйти 100^100 и это невесело.
#define COUNT 10
#define LIMIT 100
#include <iostream>
#include <ctime>
#include <random>
using namespace std;
int main() {
srand(time(NULL));
int a [COUNT];
long long result = 1;
for (int i = 0; i < COUNT; ++i)
a[i] = rand()%(LIMIT-0+1) + 0;
for (int i = 0; i < COUNT; ++i)
if (a[i] % 6 != 0 && a[i] > 9 && a[i] < 100 && a[i] != 0)
result *= a[i];
cout << "Massive: ";
for (int i = 0; i < COUNT; ++i)
cout << a[i] << " ";
cout << endl << "RESULT: " << result;
}
Procedure ABC(Var A:Mass; Var Max:integer);
Var
i,j:integer;
Begin
Write('M = ');ReadLn(i);
Write('N = ');ReadLn(j);
For i:= 1 to i do
Begin
For j:= 1 to j do
Begin
A[i,j]:=random(21)-10;
Write(A[i,j]:3,' ')
End;
WriteLn;
End;
{Поиск максимума}
Max:=A[1,1];
For i:= 1 to i do
For j:= 1 to j do
if A[i,j]>Max then Max:=A[i,j];
End;
Var
A,B,C:Mass;
MaxMax,Max:integer;
Begin
Randomize;
WriteLn('Массив A(M,N):');
ABC(A,Max);
WriteLn('Max(A) = ',Max);
MaxMax:=Max;
WriteLn;
WriteLn('Массив B(M,N):');
ABC(B,Max);
WriteLn('Max(B) = ',Max);
if MaxMax<Max then MaxMax:=Max;
WriteLn;
WriteLn('Массив C(M,N):');
ABC(C,Max);
WriteLn('Max(C) = ',Max);
if MaxMax<Max then MaxMax:=Max;
WriteLn;
WriteLn('Max(Max(A),Max(B),Max(C)) = ',MaxMax);
End.