MT
Maria Tolkacheva
сделать программу на паскаль дано число -10..10
вывести 10 цифр найти максимальное число разместить цифры по убываню от максимального?
вывести 10 цифр найти максимальное число разместить цифры по убываню от максимального?
const
N = 10; // размер массива
a = -10; // диапазон случайных значений
b = 10;
var
ar : array[1..N] of integer;
max,i,j,temp:integer;
begin
for i := 1 to N do begin
ar[i] := random(b - a + 1) + a;
write(ar[i],' ');
if(i = 1) then max := ar[i];
if(ar[i] > max) then max := ar[i];
end;
writeln();
for i := 1 to N-1 do begin
for j := N downto i+1 do begin
if(ar[j] > ar[j-1]) then begin
temp := ar[j];
ar[j] := ar[j-1];
ar[j-1] := temp;
end;
end;
end;
writeln('max = ',max);
for i := 1 to N do begin
write(ar[i],' ');
end;
end.
vk.co m/stud_programming подписывайся - сделаем=)