СОСТАВЬТЕ ПРОГРАММЫ ПО ИНФОРМАТИКЕ(для паскаля), ПОЖАЛУЙСТА, ОЧЕНЬ НАДО!!! заранее спасибо тем, кто поможет, даю все баллы)
Ответы
Обе программы написаны и протестированы на PascalABC.NET 3.8.2
#1
var
arr : array[1..31] of integer;
temp : integer;
begin
randomize;
write('Сгенерированный массив: ');
for var i := 1 to 31 do
begin
arr[i] := random(88, 100);
write(arr[i], ' ');
end;
for var i := 1 to 31 do
for var j := 1 to 30 do
begin
if arr[j] < arr[j+1] then
begin
temp := arr[j];
arr[j] := arr[j+1];
arr[j+1] := temp;
end;
end;
writeln;
write('Отсортированный массив: ');
for var i := 1 to 31 do
write(arr[i], ' ');
end.
#2
var
arr : array[1..500] of integer;
temp : integer;
begin
randomize;
writeln('Сгенерированный массив: ');
for var i := 1 to 500 do
begin
arr[i] := i * 2 - 1;
write(arr[i], ' ');
end;
for var i := 1 to 500 do
for var j := 1 to 499 do
begin
if arr[j] < arr[j+1] then
begin
temp := arr[j];
arr[j] := arr[j+1];
arr[j+1] := temp;
end;
end;
writeln;
writeln('Отсортированный массив: ');
for var i := 1 to 500 do
write(arr[i], ' ');
end.