Программа: Найти разницу между минимальным и максимальным элементами в массиве

Задача: В целочисленном массиве найти разность между максимальным и минимальным элементами

PROGRAM massraznost;
	USES crt;
	var A	:array[1..10] of integer; 
    k,i,s,r	:integer;
BEGIN
	k:=0;
	s:=0;
	for i:=1 to 10 do
	  begin
		A[i]:=random(10);
		if A[i] > k 
        then k:=A[i] //Максимальный
		end;

	for i:=1 to 10 do
	  begin
		if A[i] < k 
        then s:=A[i] //Минимальный
	  end;
	r:=k-s; //Разница
	Writeln('Максимальный элемент: ',k);
	Writeln('Минимальный элемент: ',s);
	Writeln('Разница равна: ',r);
END.

Просмотрело: 2395

Возможно, Вы искали: