Никак не могу решить! дан одномерный целочисленный массив s[10]. значения вводятся с клавиатуры в интервале от -10 до 20. проверьте есть в массиве элемент, значение которого равно заданному числу n. значение n вводится с клавиатура. массив и результат вывести на экран.

PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018
Внимание! Если программа не работает, обновите версию!

begin
  var s:=ReadArrInteger(10);
  var n:=ReadInteger('n=');
  if s.FindIndex(t->t=n)<>-1 then Writeln('Есть такой элемент')
  else Writeln('Такого элемента нет')
end.

Пример
-3 0 12 4 7 -5 -1 -8 6 13
n= 7
Есть такой элемент

Var  S: array [1..10] of integer;
  i: byte;
  n: integer;
  flag: boolean = false;
begin
write('N = ');
readln(N);

for i := 1 to 10 do
repeat
  write('S[',i,'] = ');
  readln(S[i]);
until ((S[i] >= -10) and (S[i] <= 20));

write('Исходный массив: ');
for i := 1 to 10 do
begin
  write(S[i], ' ');
  if (S[i] = N) then
    flag := true;
end;

if flag = true then
  writeln(#13 + 'Совпадение найдено.')
else
  writeln(#13 + 'Совпадение не найдено.');

end.

// #1

#include <iostream>
using namespace std;

int main() {
unsigned int n;
cout << "N = ";
cin >> n;
float a[n][n],
sum = 0;
for (int i = 0; i < n; i++) {
for (int j = 0; j < n; j++) {
cout << "a[" << i
<< "][" << j
<< "] = ";
cin >> a[i][j];
sum += a[i][j];
}
}
float avg = sum / (n * n);
cout << "Среднее арифметическое - "
<< avg << ", начинаю замену...\n";
for (int i = 0; i < n; i++) {
for (int j = 0; j < n; j++) {
if (a[i][j] < 0) {
cout << "a[" << i
<< "][" << j
<< "] = " << a[i][j]
<< " < 0, заменяю на "
<< avg << "...\n";
a[i][j] = avg;
}
}
}
cout << "\nИзменённый массив:\n";
for (int i = 0; i < n; i++) {
for (int j = 0; j < n; j++) {
cout << a[i][j];
if ( !(j == n - 1) ) cout << ' ';
}
if ( !(i == n - 1) ) cout << '\n';
}
return 0;
}

// #2

#include <iostream>
using namespace std;
const unsigned short int n = 7;

int main() {
int a[n][n],
max;
for (int i = 0; i < n; i++) {
for (int j = 0; j < n; j++) {
cout << "a[" << i
<< "][" << j
<< "] = ";
cin >> a[i][j];
}
}
max = a[0][0];
for (int i = 0; i < n; i++) {
for (int j = 0; j < n; j++) {
if ( (a[i][j] > max) && (i + j > n + 1) )
max = a[i][j];
}
}
cout << "Максимум ниже побочной диагонали: "
<< max;
return 0;
}

1)
#include <iostream>
#include <math.h>

using namespace std;

int main() {
 int a;
 cin >> a;
 int d = a%10;
 string s = "yes";
 while(abs(a) > 0) {
   if(a%10 != d) {
     s = "no";
     break;
   }
   a/=10;
  }
  cout << s << endl;
}
2)
#include <iostream>
#include <math.h>

using namespace std;

int main() {
 int a;
 cin >> a;
 int d = a%10;
 a/=10;
 string s = "no";
 while(abs(a) > 0) {
  if(a%10 == d) {
    s = "yes";
    break;
  }
  d = a%10;
  a/=10;
  }
  cout << s << endl;
}