Найти max и min (командой down to)

@durak-1994 · Регистрация: 31.10.2010

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

Из 6 заданных чисел найти максимум минимум. Вывести на печать эти числа с указанием четное оно или не четное.
Решить с помощью команды "down to".

@pryda · 31.10.2010, 16:24

Pascal

var a:array[1..6]of integer;
    i,min,max:integer;
begin
for i:=1 to 6 do
read(a[i]);
min:=a[1]; max:=a[1];
for i:=6 downto 2 do
begin
     if a[i]>max then max:=a[i];
     if a[i]<min then min:=a[i];
end;
write('Максимальное число = ',max);
if odd(max) then writeln(' Оно нечетное')
else writeln(' Оно четное');
write('Минимальное число = ',min);
if odd(min) then writeln(' Оно нечетное')
else writeln(' Оно четное');
end.

@durak-1994 0 / 0 / 0 Регистрация: 31.10.2010 Сообщений: 8
		1
	Найти max и min (командой down to) 31.10.2010, 16:04. Показов 7969. Ответов 1 Метки нет (Все метки) Из 6 заданных чисел найти максимум минимум. Вывести на печать эти числа с указанием четное оно или не четное. Решить с помощью команды "down to". 0

Опции темы

Найти max и min (командой down to)

Решение