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

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

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

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

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

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

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

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

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

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

1
zuxa-zuxa
Мишка Косолапый :)
282 / 252 / 86
Регистрация: 15.02.2012
Сообщений: 1,461
Завершенные тесты: 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
Привет! Вот еще темы с решениями:

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

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

В массиве все положительные элементы, стоящие перед минимальным положительным элементом, переслать в хвост массива
В массиве A=(a1, а2, ..., аn) все положительные элементы, стоящие перед...

Списки: увеличить все элементы списка на Х
Подскажите пожалуйста, как написать задачу в консоли. Увеличить все элементы...


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

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

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