Дан одномерный массив размерностью n, заполненный случайными числами в интервале от -15 до 20. вывести на экран значения элементов массива, абсолютное значение которых > 10.

ответ:

program abc;

const n=35;

var a, b: array[1.. n] of integer;

i, j: integer;

begin

randomize;

for i: =1 to n do

a[i]: = random (20)-15;

for i: =1 to n do

write (a[i]: 4);

j: =1;

for i: = 1 to n do

if a[i]> 10 then

begin

b[j]: =a[i];

inc[j];

end;

for i: = 1 to n do

write(b[i],' ');

readln;

end.

объяснение: могу быть не прав

ответ:

c++

#include

#include

using namespace std;

int main() {

setlocale(lc_all, "russian");

srand(time(null));

int arr[20],sum=0;

for (int i = 0; i < 20; i++)

{

  arr[i] = rand() % 36+(-15);

}

cout < < "обычный массив -> ";

for (int i = 0; i < 20; i++)

{

  cout < < arr[i] < < "   ";

}

cout < < endl < < "элементы массива которые больше 10 -> ";

for (int i = 0; i < 20; i++)

{

  if (arr[i]> 10) {

  cout < < arr[i] < < "   ";

  }

}

cout < < endl;

  system("pause");

  return 0;

}

объяснение:

  вот первая программа. вторую сейчас пишу.

program p_1; var a,b: string; i,k: integer; begin k: =0; write('введите слово '); readln(a); write('введите символ '); readln(b); for i: =1 to length(a) do begin if a[i]=b then k: =k+1; if a[i]=b then writeln(i,' '); end; if k> =1 then writeln('да, встречается ',k,' раз, на позиции указанных сверху в столбик ')else writeln('нет'); end.

я пробовала у меня вышло 15 но возможны и другие варианты