Дан массив s[n] найти min и max элементы массива

@kisan · Регистрация: 24.10.2012

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

Помогите решить
Дан массив s[n] найти min и max элементы массива

@newyork7776 · 24.12.2013, 22:30

Pascal

var mas:array [1..100] of Integer;
    i,n,max,min:Integer;
begin
  Randomize;
  write('Enter size of array = ');Readln(n);
  Write('Array = ');
  for i:=1 to n do
    begin
      mas[i]:=Random(50);
      if (1=i) then begin max:=mas[i];min:=mas[i];end;
      if (max<mas[i]) then max:=mas[i];
      if (min>mas[i]) then min:=mas[i];
      write(mas[i],' ');
    end;
    writeln;
  Writeln('MAX = ',max);
  Writeln('MIN = ',min);
  readln;
end.

@kisan 0 / 0 / 0 Регистрация: 24.10.2012 Сообщений: 21
		1
	Дан массив s[n] найти min и max элементы массива 24.12.2013, 22:20. Показов 4540. Ответов 1 Метки нет (Все метки) Помогите решить Дан массив s[n] найти min и max элементы массива 0

	24.12.2013, 22:30

Дан массив s[n] найти min и max элементы массива

Решение