Новые сообщения · Правила  
Страница 1 из 11
Модератор форума: Berestovskiy 
Форум ПРОГРАММИСТОВ » ПРОГРАММИРОВАНИЕ » Паскаль » помогите пожалуйста (турбо паскаль)
помогите пожалуйста
в одномерном массиве поменять max и min значения . массив от 1 до 20.

и вторая задача.

определить количество max элементов в массиве. массив от 1 до 20

1 | Автор: irina111 | 2010-12-17, 15:14   |  Репутация: [ + 0 ]
1. Могу написать код который выводит макс и мин значения...если поможет;)

Нужна помощь? Сюда: vkontakte.ru/berestovskiy
2 | Автор: Berestovskiy | 2010-12-26, 19:38   |  Репутация: [ + 211 ]
Code

var max,min,nmax,nmin:integer;
   mas:array[1..20] of integer; //массив будем считать уже заданный
begin
   max:=mas[1]; min:=mas[1];
for i:=1 to 20 do
   begin
   if max<mas[i] then begin max:=mas[i];  nmax:=i; end;
   if min>mas[i] then begin min:=mas[i]; nmin:=i; end;
   end;
mas[nmax]:=min; mas[nmin]:=max;
readln();
end;

не компилировал, не проверял.


Меня все время преследуют умные мысли... но я быстрее!!!
3 | Автор: guru | 2010-12-26, 23:39 | Изменено: guru - Вс, 2010-12-26, 23:41   |  Репутация: [ + 8 ]


Меня все время преследуют умные мысли... но я быстрее!!!
3 | Автор: guru | 2010-12-26, 23:39 | Изменено: guru - Вс, 2010-12-26, 23:41   |  Репутация: [ + 8 ]
Форум ПРОГРАММИСТОВ » ПРОГРАММИРОВАНИЕ » Паскаль » помогите пожалуйста (турбо паскаль)
Страница 1 из 11
Поиск: