Найти максимальное число из 3 переменных - Pascal ABC

  1. как найти в паскале максимальное число из 3 переменных


textual

Код:

var i,n,max:integer;
x:array[1..25]of integer;
begin
n:=3;
for i:=1 to n do read(x[i]);
max:=x[1];
for i:=2 to n do 
if x[i]>max then max:=x[i];
write(max);
end.


Похожие ответы
  1. Помогите пожалуйста решить задачу: дано целое число. Вывести на экран значение наименьшей его цифры.

  1. Создать одномерный числовой массив из 6 элементов и вывести результат на экран. Затем элементы, стоящие на нечетных местах уменьшить на 2, подсчитать сумму этих элементов и вывести эти значения на экран с пояснениями.

  1. Дано натуральное число, определите сколько раз в нём встретится последняя цифра. решение нужно через цикл goto

  1. 29. Определить, заканчивается ли заданное натуральное число на нечетную цифру

  1. Скажу честно и прямо, сделайте за меня. Будем говорить, что число a лучше числа b, если сумма цифр a больше суммы цифр числа b, а в случае равенства сумм их цифр, если число a меньше числа b. Например, число 124 лучше числа 123, так как у первого из них сумма цифр равна семи, а у второго — шести. Также, число 3 лучше числа 111, так как у них равны суммы цифр, но первое из них меньше. Дано число n. Найдите такой его делитель d (само число n и единица считаются делителями числа n), что любой другой делитель c числа n лучше, чем d. Входные данные Первая строка входного файла INPUT.TXT содержит целое число n (1 ≤ n ≤ 105000). Выходные данные В выходной файл OUTPUT.TXT выведите ответ на задачу. Примеры INPUT.TXT 10 OUTPUT.TXT 10 ----------------------- INPUT.TXT 239 OUTPUT.TXT 1 P.S. знаю подобное есть в инете, но оно не совсем правильно работает

  1. Проверить, какому интервалу принадлежит данное действительное число d: (-16, 2), (4, 10) или (14, 36). Если число d не принадлежит не одному из интервалов, то выдать соответствующее сообщение. И если не сложно в Си# как эта же задача будет выглядеть?

  1. Добрый вечер! Помогите, пожалуйста! Заменить данные n натуральных чисел на числа, которые получаются из исходных записью его цифр в обратном порядке (например, дано число 156, нужно получить 651). Определить функцию, которая записывает числа в обратном порядке.

  1. на натуральном отрезке [a,b] найдите и выведите число N с наибольшей суммой своих делителей Через Repeat или While

  1. Помогите написать программу Дано натуральное число. Найти число, получаемое при прочтении его цифр справа налево. Вычислить сумму .

  1. Зада ) Багаж пассажира характеризуется количеством и общей массой вещей. Дан файл Bagazh, содержащий сведения о багаже нескольких пассажиров. Сведения о багаже каждого пассажира представляют собой запись с двумя полями: одно поле целого типа (количество вещей) и одно поле действительное (масса вещей в килограммах). Определить: а) число пассажиров, имеющих более двух вещей, и число пассажиров, количество вещей, которых превосходит среднее; б) имеется ли пассажир, багаж которого состоит из одной вещи массой менее Т [кг]. файл должен создаваться программой