Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.75/4: Рейтинг темы: голосов - 4, средняя оценка - 4.75
mashabrown
0 / 0 / 0
Регистрация: 10.01.2016
Сообщений: 13
1

Элементы одномерного массива с суммой квадратов индексов больше значения элемента, заменить заданным числом

10.01.2016, 21:27. Просмотров 771. Ответов 1
Метки нет (Все метки)

26.Дан целочисленный массив размера n x m с элементами из диапазона [0,20) Те элементы, сумма квадратов индексов которых больше значения элемента, замените числом 100.
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
10.01.2016, 21:27
Ответы с готовыми решениями:

Заменить на 0 значения элементов массива с нечетной суммой индексов
Ребят помогите решить задачу на паскале и на бейсике. Дан массив В (N,M). Заменить на 0...

Заменить каждый эемент массива суммой квадратов самого элемента и его индекса
1) Заполнить массив случайными числами ( положительными и отрицательными) из произвольного...

Заменить нулями в матрице элементы с четной суммой индексов
1. Даны целые числа а1,...,а4 и целочисленная матрица А(4х4). Заменить нулями в матрице элементы с...

Заменить нулями в матрице элементы с четной суммой индексов
Даны массив А=(a1, a2, ..., a10) и матрица B. Заменить нулями в матрице те элементы с четной суммой...

Замените в массиве значения элементов с четной суммой индексов на значение второго элемента
Напишите программу формирования массива размером 5х5 с помощью датчика случайных чисел.Замените в...

1
Xo6ut
101 / 88 / 75
Регистрация: 04.11.2011
Сообщений: 1,785
11.01.2016, 00:39 2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
begin
  var n := ReadLnInteger('n =');
  var m := ReadLnInteger('m =');
  var a : array [,] of Integer;
  SetLength(a, n, m);
  var D := 4;
  for var r := 1 to n do
    for var c := 1 to m do
      begin
        a[r-1, c-1] := ReadLnInteger('a[' + r.ToString + ',' + c.ToString + '] =');
        D := max(D, a[r-1, c-1].ToString.Length + 1);
      end;
  WriteLn('Введён массив:');
  for var r := 0 to n-1 do
    begin
      for var c := 0 to m-1 do
        Write(a[r, c]:D);
      WriteLn;
    end;
  WriteLn('Изменённый массив:');
  for var r := 1 to n do
    begin
      for var c := 1 to m do
        begin
          if r*r + c*c > a[r-1, c-1] then
            a[r-1, c-1] := 100;
          Write(a[r-1, c-1]:D);
        end;
      WriteLn;
    end;
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
11.01.2016, 00:39

Сформировать квадратную матрицу по приведенному правилу, заменить нулями элементы с четной суммой индексов
Сформировать квадратную матрицу по закону ; Xk = f (Xk-1), Х0 = 0,5, заменить нулями элементы с...

Заменить на единицы все элементы массива, значения которых больше 3 , если максимальный элемент массива имеет значение от 0 до 5
Помогите пожалуйста решить 2 задачи... 1) Если сумма значений элементов с четным индексом в...

Вычислить среднее арифметическое квадратов отрицательных чисел, положительные элементы заменить значениями их индексов.
Вывести одномерный массив из N вещественных чисел в диапазоне от -10 до +10. Вычислить среднее...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru