#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;
}
// PascalABC.NET 3.1, сборка 1174 от 22.02.2016
var
a,b:real;
procedure WriteAvg;
begin
Writeln('Среднее= ',(a+b)/2)
end;
begin
Write('a,b='); Read(a,b);
WriteAvg
end.
Тестовое решение:
a,b=6 4.9
Среднее= 5.45
Задача б)
// PascalABC.NET 3.1, сборка 1174 от 22.02.2016
begin
var c:=ReadlnChar('Введите символ:');
if c in ['A'..'z','А'..'я','Ё','ё'] then Writeln('буква')
else
if c in ['0'..'9'] then Writeln('цифра')
else Writeln('спецзнак')
end.
Тестовое решение:
Введите символ: i
буква