Найти максимум из введненых с клавыиатруы чисел
10-11 класс
|
begin
write('Введите целое число n (n>0): ');
var n := ReadInteger;
assert(n>0);
write('Введите число: ');
var x := ReadReal;
var max := x;
for var i := 2 to n do
begin
write('Введите ', i, ' число: ');
x := ReadReal;
if max < x then
max := x;
end;
writeln('Максимальное из введенных чисел: ', max);
end.
Другие вопросы из категории
Найти х из следующих соотношений:
а) 16 (в степени х) бит =32 Мбайт
б) 8 (в степени х) Кбайт = 16 Гбайт
множественном числе.
1)средства ввода, поиска, размещения и выдачи больших массивов данных;
2)Программы для работы в компьютерной сети;
3)программы, позволяющие выполнять операции над данными, представленными в табличной форме;
4)средства проектирования электронных схем, машин, механизмов.
Читайте также
всех введенных данных чисел не будет равна 177. №2. Определите диаметр круга, радиус, площадь, если известна длина окружности L. №3.Даны два действительных числа А, В. Найти наибольшее из них и выяснить четное оно или нет.
2. Найти больше из трех данных чисел.
3. В одномерном массиве положительные элементы меншиты на 7.
рабочего листа. Количество элементов заранее неизвестно.
Сформировать из элементов заданного массива чисел новый той же размерности по правилу: Xj = Yj + j.
Нужно сделать в Excel VBA
Помогите пожалуйста
программирования эффективный алгоритм, позволяющий найти и вывести наибольшую
разность двух чисел, содержащихся в массиве.