Var ma:array of array of integer; i,j,n,r:integer; begin readln(n); setlength(ma,n+1); for i:=1 to n do setlength(ma[i],n+1); writeln('Matrix:'); for i:=1 to n do begin writeln; for j:=1 to n do begin ma[i,j]:=random(n); write(ma[i,j]:4); end; end; for i:=1 to n do for j:=i+1 to n do r:=r+ma[i,j]; r:=r div 3; writeln; if odd(r) then writeln('Да') else writeln('Нет'); end.
Var ma:array of array of integer; i,j,n,r:integer; begin readln(n); setlength(ma,n+1); for i:=1 to n do setlength(ma[i],n+1); writeln('Matrix:'); for i:=1 to n do begin writeln; for j:=1 to n do begin ma[i,j]:=random(n); write(ma[i,j]:4); end; end; for i:=1 to n do for j:=i+1 to n do r:=r+ma[i,j]; r:=r div 3; writeln; if odd(r) then writeln('Да') else writeln('Нет'); end.
int main()
{
int n;
printf("n = ");
scanf("%d", &n);
int a[n], i, j, t;
for (i = 0; i < n; i++) {
printf("a[%d] = ", i);
scanf("%d", &a[i]);
}
for (i = 0; i < n; i++) {
t = a[i];
for (j = 0; j < n; j++) {
if ( (t == a[j]) && (j != i) ) {
printf("%d повторяется\n", t);
}
}
}
return 0;
}