0 / 0 / 0
Регистрация: 08.12.2014
Сообщений: 9
1

Найти максимальный элемент массива и заменить им все элементы, кроме минимального

08.12.2014, 23:46. Показов 1635. Ответов 2
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
1) Объявить массив из 10 чисел.Вывести значения элементов с клавиатуры.Найти максимальный элемент массива и заменить им все элементы,кроме минимального.Вывести на экран и в файл исходный и измененный массив.
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
08.12.2014, 23:46
Ответы с готовыми решениями:

Найти минимальный и максимальный элементы массива и заменить первый элемент массива суммой минимального и максимального элементов
Доброго времени суток.. Случилось так, что требуется решить 2 задачи в ВБА на массивы, которые я...

Найти максимальный элемент массива, заменить все положительные элементы массива максимальным
Создать одномерный массив из 10 случайных целых чисел из интервала от -10 до 10. Найти максимальный...

Найти максимальный элемент массива, заменить все положительные элементы массива максимальным
Создать одномерный массив из 10 случайных целых чисел из интервала от -10 до 10. Найти...

Найти максимальный элемент массива и заменить его и все элементы, которые равняются максимальному, на нуль
в массиве y(n) найти максимальный элемент и заменить его и все элементы, которые равняются...

2
Эксперт Pascal/Delphi
2386 / 1298 / 1492
Регистрация: 29.08.2014
Сообщений: 4,661
09.12.2014, 08:11 2
Лучший ответ Сообщение было отмечено f_c_s_d_1_9_3_6 как решение

Решение

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
32
33
const  m=10;
type
  mas=array[1..m] of real;
var
  a:mas;
  i,j,l:integer;
  f:text;
procedure print(a:mas;s:string);
var
  i:integer;
begin
  writeln(s);
  writeln(f,s);
  for i:=1 to m do begin
    writeln(a[i]:0:2);
    writeln(f,a[i]:0:2);    
  end;  
end;
begin
  assign(f,'out.txt');
  rewrite(f);
  write('введите массив:');  
  j:=1;l:=1;
  for i:=1 to m do begin
    read(a[i]);
    if a[j]>a[i] then j:=i;
    if a[l]<a[i] then l:=i;
  end;
  print(a,'Исходный массив');
  for i:=1 to m do if a[i]<>a[j] then a[i]:=a[l];
  print(a,'Измененный массив');  
  Close(f);
end.
0
0 / 0 / 0
Регистрация: 08.12.2014
Сообщений: 9
10.12.2014, 19:49  [ТС] 3
Большое спасибо !
0
10.12.2014, 19:49
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
10.12.2014, 19:49
Помогаю со студенческими работами здесь

Все нулевые элементы заменить на максимальный элемент массива
Дан одномерный массив.Все нулевые элементы заменить на максимальный элемент массива

Заменить все двузначные элементы массива на максимальный элемент
Требуется определить массив целых чисел (например, размера 30), заполнить его случайными числами...

Двумерный массив. Найти наибольший элемент. Заменить все элементы первого столбца на максимальный элемент
Помогите пожалуйста, контрольную надо исправить, вот эти задачи решить дали: 1. дан двумерный...

Заменить все отрицательные элементы массива на максимальный элемент массива
Дан одномерный массив из N элементов. Заменить все его отрицательные элементы на максимальный...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru