Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/4: Рейтинг темы: голосов - 4, средняя оценка - 5.00
Дарья Прохорова
1 / 1 / 0
Регистрация: 03.12.2009
Сообщений: 81
1

Составить программу определения максимального и минимального из шести чисел

03.12.2009, 23:03. Просмотров 678. Ответов 3
Метки нет (Все метки)

Составить программу определения максимального и минимального из шести чисел.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
03.12.2009, 23:03
Ответы с готовыми решениями:

Составить программу определения минимального элемента из трех элементов х1, х2, х3
Составить программу определения минимального элемента из трех элементов х1, х2,...

Составить программу для нахождения минимального и максимального элемента
2. Составить программу для нахожденияминимального и максимального элемента...

Составить программу поиска нахождения минимального и максимального элементов массива
Задан числовой массив А. Составить программу поиска нахождения минимального и...

составить программу определения числа одинаковых целых чисел к в серии длиной больше 1 в одномерном массиве Х=(х1,х2,…,хn)
type mas=array of integer; var mt,mD:mas; p,k,n,e:integer; begin write('n=...

Составить программу определения наибольшего общего делителя двух неотрицательных чисел НОД (a, b) по алгоритму Евклида.
Доброго времени суток. Есть такая вот задачка: Составить программу...

3
Inadequate
Retired
7710 / 2543 / 670
Регистрация: 17.10.2009
Сообщений: 5,100
03.12.2009, 23:28 2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
var
  i,min,n:integer;
begin
  for i:=1 to 6 do
  begin
    write(i,'÷èñëî: ');
    readln(n);
    if i=1 then
      min:=n;
    if n<min  then
      min:=n
  end;
  writeln('Min: ',min)
end.
1
TAVulator
3964 / 1121 / 164
Регистрация: 27.07.2009
Сообщений: 3,482
03.12.2009, 23:32 3
дополню:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
var
  i,min,max,n:integer;
begin
  for i:=1 to 6 do
  begin
    write(i,'число: ');
    readln(n);
    if i=1 then
     Begin
      min:=n;
      max:=n;
     End;
    if n<min  then
      min:=n else
    if n>max then
      max:=n;
  end;
  writeln('Min: ',min);
  writeln('Max: ',max);
end.
2
Inadequate
03.12.2009, 23:49     Составить программу определения максимального и минимального из шести чисел
  #4

Не по теме:

Что-то я недочитал про максимум...

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

Составить функцию определения максимального элемента в одномерном массиве.
Организация функций. Использование функций. Составить функцию определения...

Вывод максимального и минимального из 3-х чисел
Здравствуйте! Помогите пожалуйста разобраться... в восьмом классе не велась...

Найти сумму квадратов максимального и минимального чисел массива
Найти сумму квадратов максимального и минимального чисел массива В(14)


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

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

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