Главная Вход в систему Регистрация
Задать вопрос Консультации Пользователи Форум
О системе Помощь
Задать вопрос экспертам
Консультация № 107974
04.11.2007, 15:04
0.00 руб.
0 2 2
Образование
Даны натуральное число n, действительные числа a1,...,an.

Верно ли, что наибольший член последовательности a1,...,an по модулю больше единицы?

Приложение:
Решит в Pascal 7.0 с помощью массивов и циклов

Обсуждение

Неизвестный
04.11.2007, 15:58
общий
это ответ
Здравствуйте, Николаев Денис!
Решение в приложении!

Приложение:
program Maximum;const N_Max = 20;var A : Array[1..N_Max] of real; i, N : integer; Max : real;begin {ввод исходных данных} WriteLn( ‘Введите количесвто элементов последовательности N:‘ ); ReadLn( N ); WriteLn( ‘Введите ‘, N, ‘ элементов:‘ ); for i := 1 to N do begin Write( ‘A[‘, i, ‘]=‘ ); ReadLn( A[i] ); end; {поиск максимального} Max := A[1]; for i := 2 to N do if A[i] > Max then Max := A[i]; {вывод результата} if abs( Max ) > 1 then WriteLn( ‘Наибольший элемент по модулю больше единицы‘ ) else WriteLn( ‘Наибольший элемент по модулю не больше единицы‘ ); ReadLn;end.
Неизвестный
04.11.2007, 17:06
общий
это ответ
Здравствуйте, Николаев Денис!
Вот решение Вашей задачи:

Приложение:
program cycle;const MaxN = 100; // Тут введите максимально возможное N;var a: array [1..MaxN] of real; n,i: longint;begin Read(N); for i:=1 to N do read(a[i]); // Заполняем массив for i:=1 to N do if abs(a[i]) < 1 then begin ok:=false; break; end; if ok then WriteLn(‘Yes‘) else WriteLn(‘No‘);end.
Форма ответа