Дано 10 вещественных чисел, найти величину наибольшего из них

@Glagolol · Регистрация: 12.10.2012

Author24 — интернет-сервис помощи студентам

2)Дано 10 вещественных чисел, найти величину наибольшего из них.

Буду благодарен за программу, и если не сложно напишите объяснения к вашим действиям, просьба написать ЦИКЛЫ

@H_Hmayakyan · 12.10.2012, 11:16

Сообщение от Glagolol

2)Дано 10 вещественных чисел, найти величину наибольшего из них.

Pascal

program max_of_reals; //Заголовок программы
var
    a: array [1..10] of Real; //Объявляем массив из 10 вещественных элементов
    max, i: Integer; //Объявляем 
begin
    max := a[1];
    for i := 2 to 10 do
        begin
            if a[i] > max then
            max := m[i]
        end;
    writeln('max = ', max);
end.

Добавлено через 14 минут
Время истекло не успел отредактировать.

Сообщение от Glagolol

2)Дано 10 вещественных чисел, найти величину наибольшего из них.

1. Заголовок программы
2. Раздел описания переменных
3. Объявляем массив из 10 вещественных элементов
4. Объявляем две целочисленные переменные, первая (max) будет хранить наибольшее число, вторая (i) будет индексом цикла for
5. Начало программы
6. Присваиваем переменной max значение первого элемента массива
7. Запускаем счетный цикл for начиная со второго элемента до 10-го
8. Начало составного оператора
9. Проверка условия: если текущий элемент больше значения max, то
10. присвоим max значение текущего элемента
11. Конец составного оператора
12. Выведем значение max
13. Конец программы.

@Glagolol 0 / 0 / 0 Регистрация: 12.10.2012 Сообщений: 4
		1
	Дано 10 вещественных чисел, найти величину наибольшего из них 12.10.2012, 09:40. Показов 5742. Ответов 1 Метки нет (Все метки) 2)Дано 10 вещественных чисел, найти величину наибольшего из них. Буду благодарен за программу, и если не сложно напишите объяснения к вашим действиям, просьба написать ЦИКЛЫ 0

	12.10.2012, 11:16

Дано 10 вещественных чисел, найти величину наибольшего из них

Решение