Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.50/6: Рейтинг темы: голосов - 6, средняя оценка - 4.50
0 / 0 / 0
Регистрация: 08.06.2015
Сообщений: 6
1

Для заданного множества чисел найти разность между максимальным и минимальным числами

17.06.2015, 23:05. Показов 1170. Ответов 4
Метки нет (Все метки)

Ввести 8 целых чисел. Найти разницу между наибольшим и наименьшим из них.
0
Заказывайте контрольные, курсовые и дипломы здесь.
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
17.06.2015, 23:05
Ответы с готовыми решениями:

Найти разность между максимальным и минимальным числами
Помогите пожалуйста решить задачку на Паскале. Даны три действительных числа. Написать программу,...

10 вещественных чисел. Вычислите разность между максимальным и минимальным числами
ПОМОГИТЕ ПОЖАЛУЙСТА: :( Написать программу на HTML и PHP для следующего задания: На экране в...

На экране в форме вводятся 10 вещественных чисел. Вычислите разность между максимальным и минимальным числами
Здравствуйте! Нужно написать следующую программу на PHP: "На экране в форме вводятся 10...

Даны массивы вещественных чисел A и B. Найти разность между минимальным и максимальным элементом для каждого из массивов
Здраствуйте, помогите пожалуйста написать код программы: Даны массивы вещественных чисел A и B с...

4
1643 / 1072 / 1081
Регистрация: 03.07.2013
Сообщений: 4,507
17.06.2015, 23:43 2
Лучший ответ Сообщение было отмечено Алексей09 как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
For i:=1 to 8 do
Begin
  Readln(a);
  If i=1 then
  Begin
    max:=a;
    min:=a;
  end;
  If a>max then max:=a;
  If a<min then min:=a;
end;
Writeln(max-min);
2
2508 / 1129 / 582
Регистрация: 07.06.2014
Сообщений: 3,281
17.06.2015, 23:44 3
Лучший ответ Сообщение было отмечено Алексей09 как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
var i, A, minA, maxA : integer;
begin
  for i:=1 to 8 do begin
    Write('введите ',i,' число: '); ReadLn(A);
    if i=1 then begin minA := A;  maxA := A end
    else begin
       if A>maxA then maxA := A;
       if A<minA then minA := A;
    end;
end;
WriteLn('разность = ', maxA- minA);
Readln
end.
2
APALoff
17.06.2015, 23:52
  #4

Не по теме:

Sergio Leone, мы даже названия переменных использовали практически одинаковые. ))

0
Sergio Leone
17.06.2015, 23:56     Для заданного множества чисел найти разность между максимальным и минимальным числами
  #5

Не по теме:

Цитата Сообщение от APALoff Посмотреть сообщение
Sergio Leone, мы даже названия переменных использовали практически одинаковые. ))
Точняк!!! :) у кого там мысли сходятся?! :d

Просто программа уж очень хрестоматийно-очевидная...
Хотя я вначале хотел сделать чтение первого числа отдельно, чтобы избавиться от проверки на i=1 внутри цикла...

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

Вычислить разность между максимальным и минимальным числами
2)Пусть дано 100 вещественных чисел, которые вводятся по одному. Вычислите разность между...

Вычислить разность между максимальным и минимальным числами
Привет, нужна помощь, помогите пожалуйста! Заранее СПАСИБО! ЛР 4 Циклические алгоритмы

Дано 100 чисел, найти разность между максимальным и минимальным числом
Даны 100 вещественных чисел. Найти разность между максимальным и минимальным числом. В голову не...

Вычислить разность между максимальным и минимальным числами в массиве
Заполнить массив из N ячеек случайными целыми числами от 0 до 24.Написать функцию вычисляющую...


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

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

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