Question

(50 баллов) сгенерировать три случайных числа a b c из диапазона от -30 до 30 вывести их на экран, найти наибольшее из них по модулю (pascal)

Answer 1

Программа:

var a,b,c,max: integer;

begin

randomize;

a:=random(61)-30;

b:=random(61)-30;

c:=random(61)-30;

writeln('a = ',a,' b = ',b,' c = ',c);

if abs(a)>abs(b) then max:=a else max:=b;

if abs(c)>abs(max) then max:=c;

writeln('max = ',max);

end.

Пример:

a = 26 b = -25 c = -2

max = 26

Answer 2

Вот пример программы на Pascal, которая генерирует три случайных числа из диапазона от -30 до 30, выводит их на экран и находит наибольшее из них по модулю:

pascalCopy code
program MaxAbsoluteValue;
var
  a, b, c, maxAbsValue: integer;
begin
  Randomize; // Инициализация генератора случайных чисел

  // Генерация трех случайных чисел из диапазона от -30 до 30
  a := Random(61) - 30;
  b := Random(61) - 30;
  c := Random(61) - 30;

  // Вывод сгенерированных чисел на экран
  writeln('Сгенерированные числа: ');
  writeln('a = ', a);
  writeln('b = ', b);
  writeln('c = ', c);

  // Находим наибольшее по модулю из трех чисел
  maxAbsValue := a;
  if abs(b) > abs(maxAbsValue) then
    maxAbsValue := b;
  if abs(c) > abs(maxAbsValue) then
    maxAbsValue := c;

  // Вывод наибольшего по модулю числа на экран
  writeln('Наибольшее по модулю число: ', maxAbsValue);
end.

Программа генерирует три случайных числа в заданном диапазоне, выводит их на экран и находит наибольшее из них по модулю.