mb9037479491
?>

Seans ВопросВычислите значение выражения EB16 – 352. ответ запишите в десятичной системе счисления, основание системы счисления указывать не нужно.Введите правильный вариант ответа:​

Информатика

Ответы

TrofimovAnastasiya828
2) Сортирую не методом выбора, а пузырьковым методом, т.к. мне неизвестна формулировка "метод выбора"
program z1;
var
mas:array[1..10] of Integer;
m,n,temp:integer;
begin
randomize;
for i:=1 to 10 do
begin
mas[i]:=random(100);
end;
for i:=1 to 4 do if mas[i]>mas[i+1] then
begin
temp:=mas[i+1];
mas[i+1]:=mas[i];
mas[i]:=temp;
end;
for i:=6 to 9 do if mas[i]<mas[i+1] then
begin
temp:=mas[i+1];
mas[i+1]:=mas[i];
mas[i]:=temp;
end;
end.

Если нужен еще и вывод на экран - то дописываете перед end. следующее: for i:=1 to 10 do writeln(mas[i])

Насчет первого. Мне непонятна формулировка "отсортировать по последней цифре"

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

Seans ВопросВычислите значение выражения EB16 – 352. ответ запишите в десятичной системе счисления, основание системы счисления указывать не нужно.Введите правильный вариант ответа:​
Ваше имя (никнейм)*
Email*
Комментарий*