Var f: array[1..10] of integer; i,suma,sumb:integer; begin randomize; for i:=1 to 10 do begin f[i]:=random(10)+10; write(f[i],' '); end; suma:=0; sumb:=0; for i:= 1 to 10 do if f[i] mod 2 = 0 then suma:=suma+f[i]; else sumb:sumb+f[i]; writeln('Сумма четных: ',suma); writeln('Сумма нечетных: ',sumb); end.
var f: array[1..8] of integer; i,k,sumb:integer; begin randomize; for i:=1 to 8 do begin f[i]:=random(10)+10; write(f[i],' '); end; k:=0; sumb:=0; for i:= 1 to 8 do if f[i] mod 2 = 0 then k:=k+1; else sumb:sumb+f[i]; writeln('Количество четных: ',k); writeln('Сумма нечетных: ',sumb); end.
// PascalABC.NET 3.2, сборка 1362 от 14.12.2016 // Внимание! Если программа не работает, обновите версию!
function MatrCreate(m,n:integer):array[,] of integer; begin Writeln('*** Исходный массив A[',m,',',n,'] ***'); Result:=MatrRandom(m,n,-50,50); Result.Println(4); Writeln(4*n*'-'); end;
procedure Matr2File(a:array[,] of integer; fn:string); begin var f:file of integer; ReWrite(f,fn); foreach var r in a.Rows do foreach var x in r do Write(f,x); f.Close end;
begin var m:=ReadlnInteger('Количество строк в массиве:'); var n:=ReadlnInteger('Количество столбцов в массиве:'); var a:=MatrCreate(m,n); var s:=ReadlnString('Имя файла:'); Matr2File(a,s); Writeln('Работа завершена') end.
#include <iostream>
using namespace std;
int main()
{
int a;
cin >> a;
int mas[a][a];
for(int i = 0; i<a; i++){
for(int g = 0; g<a; g++){
int t;
cin >> t;
mas[i][g] = t;
}
}
for(int i = 0; i<a; i++){
swap(mas[i][i] , mas[a-i-1][i]);
}
for(int i = 0; i<a; i++){
for(int g = 0; g<a; g++){
cout << mas[i][g] << ' ';
}
cout << endl;
}
}
Объяснение: