Вывести минимальный и максимальный элемент массива заданного размера

@Shreder123 · Регистрация: 24.01.2016

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

ввести с клавиатуры размерность одномерного динамического массива, затем создать его с рандомными значениями и вывести минимальный и максимальный элемент массива.

@Puporev · 07.02.2016, 11:40

Pascal

var a:array of integer;
    n,i,min,max:integer;
begin
randomize;
write('Введите размер массива n=');
readln(n);
setlength(a,n);
for i:=0 to n-1 do
 begin
  a[i]:=random(100);
  write(a[i]:4);
  if i=0 then
   begin
    min:=a[0];
    max:=a[0];
   end
  else if a[i]<min then min:=a[i]
  else if a[i]>max then max:=a[i];
 end;
writeln;
writeln('Минимальный=',min,' максимальный=',max) 
end.

@Shreder123 0 / 0 / 0 Регистрация: 24.01.2016 Сообщений: 52
		1
	Вывести минимальный и максимальный элемент массива заданного размера 07.02.2016, 11:30. Показов 1138. Ответов 1 Метки нет (Все метки) ввести с клавиатуры размерность одномерного динамического массива, затем создать его с рандомными значениями и вывести минимальный и максимальный элемент массива. 0

Опции темы

Вывести минимальный и максимальный элемент массива заданного размера

Решение