// PascalABC.NET 3.1, сборка 1219 от 16.04.2016 begin var a:=ReadLines('m17.txt').JoinIntoString.ToIntegers; a.Println; var b:=a.Select((x,i)->Rec(x,i)).Where(x->x.Item1<0) .Select(x->x.Item2).ToArray; if b.Count<>2 then Writeln('Количество отрицательных элементов не равно двум') else begin a:=SeqFill(b[0],0).Concat(a.Skip(b[0]).Take(b[1]-b[0]+1)) .Concat(SeqFill(a.Length-b[1]-1,0)).ToArray; a.Println end end.
Файл с исходными данными имеет имя m17.txt. Тестовый файл находится во вложении. Разбивка на строки сделана по 5 значений, но может быть совершенно произвольной. Также нет привязки именно к 17 числам, главное - чтобы отрицательных чисел было ровно два, иначе будет выдано сообщение о их неверном количестве.
Даны числа а1, а2, … аn. Сформировать квадратную матрицу порядка n по заданному образцу:введите сюда описание изображения
Вот примерный код, что дальше делать не знаю.int main() {
setlocale(LC_ALL, "Russian");
int n;
cout << "Введите порядок квадратной матрицы: ";
cin >> n;
int** arr = new int* [n];
for (int i = 0; i < n; i++)
arr[i] = new int[n];
cout << "Введите а1, а2, ... , a" << n << " : ";
for (int i = 0; i < n; i++)
{
for (int j = 0; j < n; j++)
{
cin >> arr[i][j];
}
}
cout << "Введенный массив: " << endl;
for (int i = 0; i < n; i++)
{
for (int j = 0; j < n; j++)
{
cout << setw(4) << arr[i][j];
}
cout << endl;
}
system("pause");
return 0;