ОТ СОСТАВИТЬ Сходить в магазин за мороженым, взяв с собой 100 рублей, обратить внимание на сдачу (т. е. условие будет сколько стоит мороженое, если 100 рублей сдачи нет, уходим, если меньше – берем сдачу и уходим)
107
115
Ответы на вопрос:
pascal
Объяснение:
procedure sortmas(a: array of integer);
var i, j, min, ind: integer;
begin
for i := 0 to Length(a) - 2 do
begin
min := a[i]; ind := i;
for j := i + 1 to Length(a) - 1 do
if a[j] < min then
begin
min := a[j]; ind := j;
end;
a[ind] := a[i]; a[i] := min;
end;
end;
var a: array of integer;
n , i: integer;
begin
WriteLn('Введите размер массива: '); Read(n);
SetLength(a, n);
Randomize;
WriteLn('Содержимое массива:');
for i := 0 to Length(a) - 1 do
begin
a[i] := random(100);
Write(a[i], ', ');
end;
WriteLn;
sortmas(a);
WriteLn('Три минимальных элемента: ', a[0], ', ', a[1], ', ', a[2], ', ');
end.
Популярно: Информатика
-
R010KMB14.03.2023 02:21
-
zverrodion19991122.12.2021 12:31
-
polinna2006p06aeo31.01.2021 20:04
-
pvpgame234530.09.2020 17:48
-
dashakechenkova27.02.2023 00:44
-
kirik201722.01.2023 07:20
-
katesmile704.04.2021 02:30
-
Kaaaaakkkktus13.09.2022 02:16
-
vorsunovakatv18.12.2022 07:20
-
8orzakt17.04.2022 22:54