Паскаль. даны положительные числа a и b (a b). на отрезке длины a размещено максимально возможное количество - id579115620210216 от phannastarichenko 16.02.2021 05:01

Question

Информатика: Паскаль. даны положительные числа a и b (a b). на отрезке длины a размещено максимально возможное количество отрезков длины b (без наложений). не используя операции умножения и деления, найти длину незанятой части отрезка a.

phannastarichenko · Accepted Answer

uses crt;
var a, b, c, i, n, j :integer;
s :array[1..10000] of integer;
begin
  clrscr;
  writeln('Введите размер массива');
  read(n);
  for i:=1 to n do
  begin
  s[i]:=random(46)-15;
  writeln ('s[', i,']=', s[i]);
  end;
  a:=s[1];for i:=1 to n do
  if s[i]>a then
  begin
  a:=s[i];
b:=i;
  end;
  writeln ('Наибольший элемент s[', b, ']=',a);
end.

P.S. Надеюсь на благодарность и лучший ответ.

MOGZ ответил