Из 6 заданных чисел найти максимум и минимум

@Leotez · Регистрация: 07.10.2010

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

"Из 6 заданных чисел найти максимум и минимум. Вывести на печать эти числа с указанием четное оно или нечетное."
Нужно решить массивом с помощью while или gotoxy, а вообще надо оба способа, сделайте пожалуйста хотя бы одним способом, второй может сам довтыкаю

Буду очень признателен.

@WatsOne · 20.10.2010, 15:34

Pascal

var 
 k,min,max:integer;
 A:array[1..6] of integer;
begin
 writeln('Введите 6 чисел.');
 k:=1;
 while k<=6 do begin
  write('Введите ',k,'-ое число: ');
  readln(A[k]);
  inc(k);                  //inc(k) можешь заменить на k:=k+1;
 end;
 max:=A[1];
 min:=A[1];
 k:=2;
 while k<=6 do begin
  if A[k]>max then max:=A[k]
  else if A[k]<min then min:=A[k];
  inc(k);                  //inc(k) можешь заменить на k:=k+1;
 end;
 writeln('Максимальное число: ',max);
 if odd(max) then writeln('Нечётное')       //odd(max) можешь заменить на max mod 2 <> 0
 else writeln('Чётное');  
 writeln('Минимальное число: ',min);
 if odd(min) then writeln('Нечётное')       //odd(max) можешь заменить на min mod 2 <> 0
 else writeln('Чётное'); 
end.

@Leotez 0 / 0 / 0 Регистрация: 07.10.2010 Сообщений: 12
		1
	Из 6 заданных чисел найти максимум и минимум 20.10.2010, 15:26. Показов 2921. Ответов 1 Метки нет (Все метки) "Из 6 заданных чисел найти максимум и минимум. Вывести на печать эти числа с указанием четное оно или нечетное." Нужно решить массивом с помощью while или gotoxy, а вообще надо оба способа, сделайте пожалуйста хотя бы одним способом, второй может сам довтыкаю Буду очень признателен. 0

	20.10.2010, 15:34

Опции темы

Из 6 заданных чисел найти максимум и минимум

Решение