program actors;
var
i: integer;
mas: array [1..10] of integer;
begin
for i := 1 to 10 do
begin
read(mas[i]);
end;
for i := 1 to 10 do
begin
if (mas[i] >= 9) and (mas[i] <= 11) then
writeln('Элемент: ', i, ' Значение: ', mas[i]);
end;
end.
Объяснение:
program actors; // Название программы
var
i: integer; // Целочисленная переменная счетчик для массива
mas: array [1..10] of integer; // Целочисленный массив с 10-ю элементами
begin // Начало программы
for i := 1 to 10 do // Идем с первого по десятый индексы
begin // Начало цикла
read(mas[i]); // Считываем значение с клавиатуры
end; // Конец цикла
for i := 1 to 10 do // Идем с первого по десятый индексы
begin // Начало цикла
if (mas[i] >= 9) and (mas[i] <= 11) then // Если значение элемента массива mas с индексом i ≤ 11 И ≥ 9, тогда
writeln('Элемент: ', i, ' Значение: ', mas[i]); // Выводим индекс и значение элемента
end; // Конец цикла
end. // Конец программы
//Размерность#define n 3#define m 3
//Диапозон#define d_min -8#define d_max 6
void enter_arr(int a[n][m]) { printf("\n >> Введите элементы массива %dx%d\n",n,m); for (int i = 0; i < n; i++) { printf("\n"); for (int j = 0; j < m; j++) { printf(" << a[%d][%d] = ", i+1, j+1); scanf("%d",&a[i][j]); } }}
void print_arr(int a[n][m]) { printf("\n >> Массив %dx%d :", n, m); for (int i = 0; i < n; i++) { printf(" \n >> "); for (int j = 0; j < m; j++) printf("%d ", a[i][j]); }}
int main(){ setlocale(LC_ALL, "rus"); int a[n][m];
enter_arr(a); print_arr(a);
for (int i = 0; i < n; i++) for (int j = 0; j < m; j++) if ((a[i][j] < d_min) || (a[i][j] > d_max)) a[i][j] *= a[i][j];
print_arr(a);
system("pause>>void"); return 0;}