СРОЧНО я в 9 классе сделайте пожалуйста как в 9 выведите max и ...
СРОЧНОя в 9 классе сделайте пожалуйста как в 9выведите max и min значения массива и поменяет их местамиЯ пыталась но там ошибка,со значением,выглядит примерно как на фото
Есть ответ
12.12.2022
158
Ответ
var
mas: array[0..11] of integer;
a, c, b: integer;
begin
for a := 0 to 9 do
begin
mas[a] := random(-50, 50);//pascalabc.net позволяет задавать диапазон случайных чисел
write(mas[a], ' ');
if mas[10] > mas[a] then begin mas[10] := mas[a]; b := a; end;
if mas[11] < mas[a] then begin mas[11] := mas[a]; c := a; end;
end;
writeln;
writeln('min[', b, '] = ', mas[10]);
writeln('max[', c, '] = ', mas[11]);
a := mas[b];
mas[b] := mas[c];
mas[c] := a;
for a := 0 to 9 do write(mas[a], ' ');
end.
Если вы нашли правильное решение, вы можете поблагодарить нас начиная с 10 рублей.
Просто нажмите на кнопку "Подарить".
Просто нажмите на кнопку "Подарить".
12.12.2022
