Форум программистов, компьютерный форум, киберфорум
Наши страницы

Turbo Pascal

Войти
Регистрация
Восстановить пароль
 
Fenya
2 / 2 / 1
Регистрация: 21.05.2014
Сообщений: 32
#1

Поменять элементы в массиве - Turbo Pascal

29.11.2014, 12:57. Просмотров 255. Ответов 0
Метки нет (Все метки)

Нужно в массиве минимальный элемент поменять на "0" и второй по минимальности поменять на "0".
Вот, что я написал, она меняет минимальный на 0, а второй по минимальности отказыватется.
Ткните мне в ошибку пожалуйста.
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
var
  a: array[1..100]of integer;
  n, i, min, min2: integer;
 
begin
  write('Введите размер массива: ');
  readln(n);
  writeln;
  write('Введите массив -> ');
  writeln;
  for i := 1 to n do read(a[i]);
  readln;
  min := 1;
  for i := 1 to n do 
    if a[i] < a[min] then min := i;
  writeln('Минимальный элемент = A[', min, '] = ', a[min]);
  if a[i] > a[min] then a[min] := 0;
    if (min2 > min) and (min2 < a[i]) then min2 := 0;
  writeln;
  writeln('Преобразованный массив:');
  for i := 1 to n do
    write(a[i]:2);
  readln;
end.
Добавлено через 11 часов 30 минут
Разобрался сам.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
29.11.2014, 12:57
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Поменять элементы в массиве (Turbo Pascal):

Поменять местами элементы в массиве - Turbo Pascal
Дан одномерный массив целых чисел. Поменять местами первый элемент с ненулевым значением и последний элемент с нечетным значением Заранее...

Поменять местами элементы в массиве - Turbo Pascal
В квадратном массиве выделим четыре четверти, ограниченные главной и побочной диагоналями (без учета элементов, расположенных на...

Поменять в массиве наибольший и наименьший элементы - Turbo Pascal
Даны натуральное n, действительные числа a1, … , an (все числа попарно различны). Поменять в этом массиве местами наибольший и наименьший...

Поменять местами элементы в Двумерном массиве - Turbo Pascal
Здравствуйте!Мир Вам и Вашему дому. Помогите с таким заданием. Поменять местами соседние элементы в массиве! Например : 1 2 3 4 5 ...

Поменять в массиве четные и нечетные элементы - Turbo Pascal
Поменять в массиве четные и нечетные элементы А Паскаль ,напишите программу,пожалуйста !!!

В массиве поменять местами наибольший и наименьший элементы. - Turbo Pascal
6. В массиве A(N) поменяйте местами наибольший и наименьший элементы.

0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
29.11.2014, 12:57
Привет! Вот еще темы с ответами:

Поменять в массиве местами максимальный и минимальный элементы - Turbo Pascal
Задание такое,Поменять в массиве местами максимальный и минимальный элементы;

Поменять в массиве местами максимальный и минимальный элементы - Turbo Pascal
В заданном массиве A поменять местами максимальный и минимальный элементы. Вывести преобразованный массив на экран.

В массиве а (n) поменять местами min и последний элементы - Turbo Pascal
Помогите пожалуйста решить 1) В массиве а(n) поменять местами min и последний элементы 2) Определить кратна ли сумма элементов массива...

В массиве поменять местами максимальный и минимальный элементы - Turbo Pascal
в массиве A(n) поменять местами максимальный и минимальный элементы


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

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

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