Помощь - Поиск - Пользователи - Календарь
Полная версия: Найти max и min элемент последовательности
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
Sequoia
Здравствуйте. В общем паскаль изучали года 3 назад и я уже ничего не помню, прошу людей, которые разбираются, помочь с решением=)
Условие:
Заданна последовательность действительных чисел:
ai (i=1-10)
Найти max и min элемент последовательности, а также произведение всех её элементов.
Спасибо)
DarkWishmaster
Цитата(Sequoia @ 5.06.2011 21:25) *

Здравствуйте. В общем паскаль изучали года 3 назад и я уже ничего не помню, прошу людей, которые разбираются, помочь с решением=)
Условие:
Заданна последовательность действительных чисел:
ai (i=1-10)
Найти max и min элемент последовательности, а также произведение всех её элементов.
Спасибо)


Uses Crt;
var a:array[1..10] of real; i:byte; min,max,P:real;
Begin ClrScr;
for i:=1 to 10 do //заполняем массив
begin
write('a[',i,']=');
readln(a[i]);
end;
min:=a[1];
max:=a[1];
P:=1;
for i:=1 to 10 do
begin
if a[i]>max then max:=a[i]; //находим макс.
if a[i]<min then min:=a[i]; //находим мин.
P:=P*a[i]; //произвидение
end;
Writeln('Max= ',max);
Writeln('Min= ',Min);
writeln('P= ',P);
readln;
end.



Sequoia
Спасибо большое give_rose.gif
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.