Последовательно вводится N целых чисел. Найти минимальное и максимальное число из введеных чисел

@maksibon · Регистрация: 17.01.2013

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

Последовательно вводится N целых чисел. Найти минимальное и максимальное число из введеных чисел.

@Harlem · 17.03.2013, 22:47

Вот Последовательность вводится N целых чисел. Найдите минимальное и максимальное число из введенных чисел

@maksibon · 12.10.2018, 07:12 **[ТС]**

Pascal

write('Введите размер последовательности');
read(n);
writeln;
write('Вводите ',n,' элементов');
writeln;
for i:=1 to n do
   read(a[i]);
max:=a[1];
for i:=1 to n do
  if max<a[i] then max:=a[i];
writeln;
write('Максимальный элемент - ',max);
min:=a[1];
for i:=1 to n do
   if min>a[i] then min:=a[i];
writeln;
write('Минимальный элемент - ',min);

@Puporev · 12.10.2018, 07:23

Массив здесь не нужен.

Pascal

var n,i,a,min,max:integer;
begin
repeat
write('Введите размер последовательности n>1 n=');
readln(n);
until n>1;
writeln('Вводите ',n,' элементов');
for i:=1 to n do
 begin
   readln(a);
   if i=1 then
    begin
     min:=a;
     max:=a;
    end
   else
    begin
     if a<min then min:=a
     else if a>max then max:=a;
    end;
 end;
writeln('Минимальный элемент - ',min);
writeln('Максимальный элемент - ',max);
end.

@maksibon 0 / 0 / 0 Регистрация: 17.01.2013 Сообщений: 53
		1
	Последовательно вводится N целых чисел. Найти минимальное и максимальное число из введеных чисел 17.03.2013, 13:43. Показов 17422. Ответов 3 Метки нет (Все метки) Последовательно вводится N целых чисел. Найти минимальное и максимальное число из введеных чисел. 0

@Harlem 66 / 66 / 90 Регистрация: 27.02.2013 Сообщений: 156
	17.03.2013, 22:47	2
	Вот Последовательность вводится N целых чисел. Найдите минимальное и максимальное число из введенных чисел 1

Опции темы