Да это правда
:))))
Не за что помочь
//PascalABC.NET 3.1 сборка 1219
procedure PrintMatrix(a: array[,] of integer);
begin
for var i := a.GetLowerBound(0) to a.GetUpperBound(0) do
begin
writeln;
for var j := a.GetLowerBound(1) to a.GetUpperBound(1) do
write(a[i, j], ' ');
end;
writeln;
end;
begin
var a := MatrixRandom(ReadInteger('n ='), ReadInteger('m ='), 0, 255);
PrintMatrix(a);
for var i := a.GetLowerBound(0) to (a.GetUpperBound(0) div 2) do
for var j := a.GetLowerBound(1) to a.GetUpperBound(1) do
swap(a[i, j], a[a.GetLowerBound(0) + a.GetUpperBound(0) - i, j]);
PrintMatrix(a);
end.
Ответ:
Формула: a*2 + b*2
Объяснение: Умножаем a*2, находим боковые стороны. Затем, умножаем b*2, находим основания. Складываем значения полученные в итоге, и получаем периметр.
Чтобы команда сработала, нужно её напечатать при помощи клавиатуры и нажать ENTER. В основном регистр не учитывается, то есть команды можно вводить как маленькими так и большими буквами. Имена файлов в DOS могут быть только в формате 8.3, то есть не более 8 символов в названии файла и не более 3 в расширении (исключая недопустимые символы — пробел . " / \ [ ] : ; = ,). Пробел используется в качестве разделителя между командой и её параметрами.
Далее
Комманда....Описание
dir....Просмотр каталога
md....Создание каталога
cd....Смена текущего каталога
rd....удаление каталога
deltree....Удаление каталога со всем его содержимым
move....переименовать каталог
path....поиск
Ответ:
#include <iostream>
#include <time.h>
#include <iomanip>
using namespace std;
int main()
{
int a[20];
int i, ibeg, iend, s;
setlocale(LC_ALL, "Russian");
srand(time(NULL));
for (i = 0; i < 20; i++) {
a[i] = (double)rand() / (RAND_MAX + 1) * 10;
cout << a[i] << " ";
}
ibeg = -1;
for (i = 0; i < 20; i++) {
if (a[i] == 0) {
ibeg = i;
break;
}
}
iend = -1;
for (i = 20; i > 0; i--) {
if (a[i] == 0) {
iend = i;
break;
}
}
if (ibeg != -1 && iend != -1) {
s = 0;
for (i = ibeg + 1; i < iend; i++)
s += a[i];
cout << "\nСумма = " << s << "\n";
}
else
cout << "\nНулевые элементы не найдены.\n";
}