Найти минимум и максимум.

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

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

Из 6 заданных чисел найти максимум минимум. Вывести на печать эти числа с указанием четное оно или не четное.
Нужно решить с помощью команд repeat и until.

@AnTro.Net · 31.10.2010, 16:01

Pascal

i:=0;
repeat
if a[i]>max then max:=a[i];
if a[i]<min then min:=a[i];
i:=i+1;
until i<6;
if max div 2 = 0 then writeln(max,'chetnoe') else writeln(max,'ne chetnoe');
if min div 2 = 0 then writeln(min,'chetnoe') else writeln(min,' ne chetnoe');

писал без компилятора, сори за ошибки если что

@Puporev · 31.10.2010, 18:59

писал без компилятора, сори за ошибки если что

Не можете писать, лень, не пишите. Чем Вы помогли человеку? Тем что вместо равно написали больше, а вместо mod div?

Pascal

uses crt;
var a,max,min,i:integer;
begin
clrscr;
writeln('Введите 6 целых чисел');
readln(a);
min:=a;
max:=a;
i:=1;
repeat
readln(a);
if a>max then max:=a
else if a<min then min:=a;
i:=i+1;
until i=6;
write('Максимальное=',max);
if max mod 2=0 then writeln(' четное') else writeln(' не четное');
write('Минимальное =',min);
if min mod 2=0 then writeln(' четное') else writeln(' не четное');
readln
end.

@durak-1994 0 / 0 / 0 Регистрация: 31.10.2010 Сообщений: 8
		1
	Найти минимум и максимум. 31.10.2010, 14:43. Показов 1512. Ответов 2 Метки нет (Все метки) Из 6 заданных чисел найти максимум минимум. Вывести на печать эти числа с указанием четное оно или не четное. Нужно решить с помощью команд repeat и until. 0

	31.10.2010, 18:59

Опции темы

Найти минимум и максимум.

Решение