#include <iostream>
#include <iomanip>
#include <ctime>
#define M 5
#define N 5
using namespace std;
int main()
{
int A[M][N];
int C[M - 1][N - 1];
int i, j, min, min_index, zero_cnt = 0;
setlocale(LC_ALL, "Russian");
srand(time(0));
cout << "Исходная матрица: " << endl;
for (i = 0; i < M; i++)
{
for (j = 0; j < N; j++)
{
A[i][j] = rand() % 101 - 50;
cout << setw(4) << A[i][j];
if ((i == 0) && (j == 0)) min = A[i][j];
if (A[i][j] < min)
{
min_index = i * M + j;
min = A[i][j];
}
}
cout << endl;
}
for (i = 0, j = 0; i < M * N; i++)
if ((i / M != min_index / M) && (i % M != min_index % M))
{
C[0][j] = A[0][i];
if (C[0][j++] == 0) zero_cnt++;
}
cout << "Результат: " << endl;
for (i = 0; i < M - 1; i++)
{
for (j = 0; j < N - 1; j++)
{
if (i == 0)
{
min = C[i][j];
C[i][j] = C[M - 2][j];
C[M - 2][j] = min;
}
cout << setw(4) << C[i][j];
}
cout << endl;
}
cout << "Количество нулей в сформированной матрице: " << zero_cnt;
return 0;
}
Поделитесь своими знаниями, ответьте на вопрос:
Перевести число 4710 в системы счисления с основаниями 2, 8, 16Определить значение числа, записанного в 2 системе счисления 110011012Определить значение числа, записанного в 8 системе счисления 2158Среди написанных чисел найдите минимальное и запишите его в десятичной системе счисления. 1416, 178, 100112.Выпишите все данные, которые EXCEL воспримет как числовые:5.56 4 -8.9 6, 785 7.06 5.00 055 -7, 6 3, 00Выпишите все относительные ссылки:AA1 Q234 $R$6 $D4 B$78 C6 Какой вид примет формула, если ее из ячейки С1 скопировать в ячейки С2, С3, D1, D2, D3. В ответе написать как будут выглядеть формулы и значение, которое будет получено при расчете по этой формуле в данной ячейке.Что будет выведено в ячейку при вводе туда формулы:=ЕСЛИ(5 – 10 > 0; “верно”;”не верно”) Какие значения будут в ячейках Е1, Е2, Е3, после копирования формулы из ячейки Е1?
// Внимание! Если программа не работает, обновите версию!
begin
var n,p:integer;
var s:string;
for var a:=1 to 9 do
for var b:=0 to 9 do
for var c:=0 to 9 do begin
n:=100*a+10*b+c;
s:=(n*n).ToString.Right(3);
p:=Pos(a.ToString,s);
if p>0 then begin
Delete(s,p,1);
p:=Pos(b.ToString,s);
if p>0 then begin
Delete(s,p,1);
if s=c.ToString then Write(n,'(',n*n,')',' ')
end
end
end
end.
Результат
205(42025) 376(141376) 421(177241) 625(390625) 963(927369)