задача №1
Рrоgrаm SumPol;
Uses Сrt;
Соnst М=5; {число строк матрицы}
N=5; {число столбцов матрицы}
Vаr A:Аrrау[1..M,1..N] of real;
Р,I:1..М;
Q,J:1..N;
S:Rеа1; {Сумма положительных элементов}
Веgin
СlrScr;
Write('Введите размерность матрицы не более 5*5');
Real(Р,Q);
Writeln('Введите элементы матрицы');
For I:=1 to Р dо
For J:=1 to Q do
Begin
Writeln(‘A[‘,I:1,’,’,j:1,’]=’);
Readln(A[I,J])
End;
Writeln(‘Контрольный вывод матрицы:’);
For I:=1 to P do
Begin For J:=1 to Q do
Writeln(A[I,J]:4:2,’ ‘,:3);
Writeln
End;
S:=0;
For I:=1 to P do
For J:=1 to Q do
If A[I,J]>0 Then S:=S+A[I,J];
Writeln(‘ Сумма положительных элементов='S:4:2)
End, {SumPol} задание:
Получить матрицу B(N,М) из матрицы А(М,N) путем перестановки столбцов - первого с последним второго с предпоследним и т. д. М и N - четные числа.
задача №2
Заданы векторы Х(М), Y(М). Переменной A присвоить значение 1, если длина вектора Х больше длины вектора У, и 0 в противном случае.