Новые сообщения · Правила  
Страница 1 из 11
Модератор форума: Berestovskiy 
Форум ПРОГРАММИСТОВ » ПРОГРАММИРОВАНИЕ » Паскаль » Решение задачи в Turbo Pascal
Решение задачи в Turbo Pascal
Составить программу нахождения произведения двух наибольших из трех введенных с клавиатуры чисел.(Условный оператор)
1 | Автор: unika | 2012-05-05, 15:03   |  Репутация: [ + 0 ]
1 | Автор: unika | 2012-05-05, 15:03   |  Репутация: [ + 0 ]
var
a:array[1..3]of integer;
i,m:integer;
begin
m:=high(m);
for i:=1 to 3 do begin
read(a[i]);
if a[i]<m then m:=a[i];end;
for i:=1 to 3 do
if a[i]=m then a[i]:=1;
writeln(a[1]*a[2]*a[3]);
end.


Нужна помощь? Сюда: vkontakte.ru/berestovskiy
2 | Автор: Berestovskiy | 2012-05-05, 19:49   |  Репутация: [ + 211 ]
Форум ПРОГРАММИСТОВ » ПРОГРАММИРОВАНИЕ » Паскаль » Решение задачи в Turbo Pascal
Страница 1 из 11
Поиск: