Дана последовательность чисел. найтидана последовательность чисел. найти минимальное и максимальное число и вычислить их среднее арифметическое. в паскале
Uses crt; Var A:array[1..10]of integer; q,w,i,k,j:integer; begin randomize; for q:= 1 to 10 do begin A[q] := random(256); write(A[q]:4) end; for i := 1 to 9 do for j := 1 to 10 - i do if A[j] > A[j + 1] then begin k := A[j]; A[j] := A[j + 1]; A[j + 1] := k; end; for i:=1 to 10 do w:=(A[1]+A[10])/2; write(w)
Var A:array[1..10]of integer;
q,w,i,k,j:integer;
begin
randomize;
for q:= 1 to 10 do
begin
A[q] := random(256);
write(A[q]:4)
end;
for i := 1 to 9 do
for j := 1 to 10 - i do
if A[j] > A[j + 1] then begin
k := A[j];
A[j] := A[j + 1];
A[j + 1] := k;
end;
for i:=1 to 10 do
w:=(A[1]+A[10])/2;
write(w)