// PascalABC.NET 3.1, сборка 1171 от 15.02.2016 begin var i,j:integer; var n:=ReadInteger('n='); var a:=ArrRandom(n,10,99); a.Println; var imax:=0; var imin:=0; for i:=1 to n-1 do if a[i]>a[imax] then imax:=i else if a[i]<a[imin] then imin:=i; if imin<imax then begin for i:=imin+1 to imax-1 do for j:=imin+1 to imax-1 do if a[i]>a[j] then Swap(a[i],a[j]) end else for i:=imax+1 to imin-1 do for j:=imax+1 to imin-1 do if a[i]>a[j] then Swap(a[i],a[j]); a.Println end.
Я так понял на паскале нужно написать? Program find;uses crt;varA:array[1..40] of integer;n,i ,k:integer;BEGINRandomize ;//Это ,чтобы каждый раз новые числа генерировало//Заполняем массив рандомными числамиfor i:=1 to 40 do A[i] := random(15); Writeln('Введите искомый элемент');Readln(n); k:=0;for i:=1 to 40 do Begin // Проверяем,совпадает ли очередной эл-нт массива с искомым //Если совпадает, то увеличиваем счетчик k if A[i] = n then k := k+1; End; Writeln ('В массиве ', k , ' раз(а) встречается заданный элемент' );END.
