Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.80/5: Рейтинг темы: голосов - 5, средняя оценка - 4.80
iza
0 / 0 / 0
Регистрация: 15.12.2012
Сообщений: 14
1

Все элементы,следующие за наибольшим элементом массива, увеличить на 10

15.12.2012, 14:40. Просмотров 946. Ответов 1
Метки нет (Все метки)

Дана матрица А(n,n).Все элементы,следующие за наибольшим элементом массива, увеличить на 10.....помогите пожалуйста решить!
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
15.12.2012, 14:40
Ответы с готовыми решениями:

Массивы: Все элементы, следующие за наибольшим элементом массива, увеличить на 10
Все элементы, следующие за наибольшим элементом массива, увеличить на 10

Обнулить все элементы массива следующие за максимальным элементом до конца массива
дан массив из 10 целых чисел. Если минимальный элемент находится на 1 месте, а максимальный элемент...

Все элементы массива увеличить в 2 раза
Дан массив. Все его элементы: а) увеличить в 2 раза; 6) уменьшить на число А; в) разделить на...

Возвести в квадрат все элементы массива, следующие за первым отрицательным
Дан одномерный ряд на 15 элементов. Возвести в квадрат все компоненты, следующие за первой...

Все члены последовательности, следующие за ее наибольшим значением, заменить на 0.5
Даны действительные числа a1, ..., an, b1, ..., bm. В последовательности a1,...,an и в...

1
zuxa-zuxa
Мишка Косолапый :)
282 / 252 / 86
Регистрация: 15.02.2012
Сообщений: 1,470
Завершенные тесты: 1
15.12.2012, 14:46 2
Лучший ответ Сообщение было отмечено iza как решение

Решение

Delphi
1
2
3
4
var
a:array[1..100,1..100] of integer;
i,j,i1,j1,max:integer;
b:boolean;
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
max:=a[1,1];
i1:=1;
j1:=1;
for i:=1 to 100 do
for j:=1 to 100 do
if max<a[i,j] then 
begin
max:=a[i,j];
i1:=i;
j1:=j;
end;
 
b:=false;
 
for i:=1 to 100 do
for j:=1 to 100 do
begin
if b=true then a[i,j]:=a[i,j]+10;
if (i=i1) and (j=j1) then b:=true; 
end;
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
15.12.2012, 14:46

Все положительные элементы массива увеличить на 0.4, нулевые заменить на 0.5
Все положительные элементы массива A увеличить на 0.4, нулевые заменить на 0.5. Вывести на экран...

Определить сумму и количество положительных элементов массива. Увеличить все отрицательные элементы на 10
Определить сумму и количество положительных элементов массива Xi, (i = 1,...,15) . Увеличить все...

Написать процедуру, которая в последовательности чисел a1.an заменяет все члены, следующие за наибольшим членом на значение 0
Разработанные процедуры и функции поместить в отдельном модуле, который затем использовать в...


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

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

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