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

Lazarus

Войти
Регистрация
Восстановить пароль
 
Курмангали
0 / 0 / 0
Регистрация: 29.05.2016
Сообщений: 34
#1

Найти номер максимального из четырех заданных чисел - Lazarus

14.06.2016, 18:35. Просмотров 164. Ответов 1
Метки нет (Все метки)

Заданы четыре числа. Найти номер максимального из чисел.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
14.06.2016, 18:35
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Найти номер максимального из четырех заданных чисел (Lazarus):

Найти номер элемента массива, начиная с которого, все M чисел меньше заданного A - Lazarus
Дан массив r, рандомно заполненный элементами от q до p Пользователь вводит в форму количество чисел M и число A Как вывести в Label...

Дан файл целых чисел, содержащий не менее четырех элементов - Delphi
Дан файл целых чисел, содержащий не менее четырех элементов. Вывести его нулевой, первый, предпоследний и последний элементы. Называйте...

Найти частное максимального и минимального из четырех заданных чисел: a,b,c,d - Turbo Pascal
Ребят, срочно помогите, нужно программу написать! Найти частное максимального и минимального из четырех заданных чисел: a,b,c,d

Найти частное максимального и минимального из четырех заданных чисел - Turbo Pascal
Найти частное максимального и минимального из четырех заданных чисел: a,b,c,d

Найти номер максимального из четырех чисел - C++
заданы четыре числа. найти номер максимального из чисел

Найти комбинацию чисел из четырех заданных чисел без повторения цифр - C#
Помогите найти комбинацию чисел из 4х заданых чисел без повторения цифр ясно что их 24, но нигде не могу найти формулу, Заранее...

1
Joy
Эксперт Pascal/Delphi
2078 / 1118 / 840
Регистрация: 29.08.2014
Сообщений: 4,071
15.06.2016, 08:02 #2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
program Project1;
var
  a,b:real;
  i,j:integer;
begin
  write(Utf8ToAnsi('Введите 4 числа:'));
  for i:=1 to 4 do begin
    read(a);
     if (i=1) or (b<a) then begin
       b:=a;
       j:=i;
     end;
  end;
  readln;
  writeln(Utf8ToAnsi('Максимальное число '),b:0:2,' No: ',j);
  readln;
end.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
15.06.2016, 08:02
Привет! Вот еще темы с ответами:

Из заданных четырех чисел найти два наименьшие - Pascal
i(a + 2)^0.2 i-нечетное и а&gt;0 d= (i + Lg λ ) a^3 i- четное и а&lt;0 (i + a)^0.5 в остальных случаях ...

Найти номер максимального элемента массива; найти произведение заданных элементов; упорядочить массив - C++
в одномерном массиве, состоящем из n целых элементов, вычислить: 1) номер максимального элемента массива; 2) произведение...

Найти наименьшее общее кратное четырех заданных чисел - Free Pascal
найти наименьшее общее кратное четырех заданных чисел

Найти количество положительных чисел среди четырех заданных - Turbo Pascal
найти количество положительных чисел среди 4 целых чисел а, b, c и d


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

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

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