Регистрация
диля252
20.12.2020 03:25
Информатика
Есть ответ 👍

Яв 9 классе сделайте как в 9выведите max и min значения массива и поменяет их местамия пыталась но там ошибка,со значением,выглядит примерно как на фото​

298
329
Посмотреть ответы 2

Ответы на вопрос:

mrvipdanchannep0793v
mrvipdanchannep0793v
4,4(48 оценок)

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.

DC2004
DC2004
4,7(90 оценок)
Требуемая формула: к = нок(n,w) / нод(n,w) пример: нок(n,w) = нок(10,35) = 70 нод(n,w) = нод(10,35) = 5 k = 70/5 = 14

Популярно: Информатика