Задачи с использованием процедур

[rooman90]

Дано:

1) Составить процедуру, исходными данными которой является матрица А из n строк и n столбцов, либо два массива В1, В2,...,Вn; C1, C2,..., Cm, либо один из них. Результат процедуры: Новое содержание матрицы А, полученное замещением 1-й строки 2-й строкой, 2-1 строки - 3-й строкой и т.д., в последней строке должно оказаться исходное содержание 1-й строки. Для проверки составленной процедуры разработать программу.

2) Для получения результата составить функцию, исходными данными которой являются два массива Х1, Х2,...,Хn и Y1, Y2,..., Yn с заданным числом n элементов (или один из них) или матрица A из n строк и n столбцов. Кроме этого, разработать программу для отладки составленной функции. Общее количество отрицательных элементов на главной диагонали и на двух соседних с ней (сверху и снизу) диагоналях матрицы А.

[sinj]

Мне кажется, что общий вид будет таков. Это вторая задача. Первая решается по аналогии (результат функции-вывод на экран массива). Проверку я не делал.

//при условии что n задано
//n=12
#include <iostream>
#include <time.h>

int MyFunc(int arr[12][12])
{

	using namespace std;
	int result1,result2,result3;//результаты по диагоналям
	result1=result2=result3=0;
	for (int i=0; i<12;i++)
		{
			arr[i][i]<0?result1++:result1;
			((i<11)&&(arr[i][i+1]<0))?result2++:result2;
			((i<11)&&(arr[i+1][i]<0))?result3++:result3;
		};

	cout<<"главная диагональ "<<result1<<endl;
	cout<<"диагональ под главной "<<result2<<endl;
	cout<<"диагональ над главной "<<result3<<endl;
	return 0;
};

[sinj]

Соответственно, программа:

int main()
{
	using namespace std;
	srand(time(0));
	int arra[12][12]={0};
	for (int i=0;i<12;i++){
		for (int j=0;j<12;j++){
			arra[i][j]=rand()%10-5;
			cout<<arra[i][j]<<" * ";
		};cout<<endl;
	};cout<<endl;


	MyFunc(arra);
	system("Pause");
	return 0;
}

[rooman90]

Мне кажется или это не в паскале?

[rooman90]

Никто не сможет написать программу для Паскаля?