Ваня хочет подарить бабушке панно из собственноручно собранных пазлов. панно, по замыслу вани, должно - id1032671520220926 от ROLFRUTIN 26.09.2022 00:52

Question

Информатика: Ваня хочет подарить бабушке панно из собственноручно собранных пазлов. панно, по замыслу вани, должно иметь форму прямоугольника, помещаться на круглом ломберном столике радиуса r, что стоит у бабушки в гостиной, и содержать максимальное количество пазлов. сколько пазлов можно отобрать для панно, если один пазл в собранном состоянии имеет размер w x h? на вход программе подаётся три натуральных числа r, w и h, каждое которых не превышает 1. программа должна вывести одно целое число – количество

ROLFRUTIN · Accepted Answer

// PascalABC.NET 3.0, сборка 1088
var
n,i,max,min,s,t,k:integer;
begin
Write('Введите количество членов последовательности: ');
Read(n);
Writeln('Вводите числа через пробел');
max:=-32768; min:=32767; s:=0; k:=0;
for i:=1 to n do begin
    Read(t);
    if t<min then min:=t
    else
      if t>max then max:=t;
    if t<0 then begin s:=s+t; Inc(k) end
    end;
Writeln('Min=',min,', max=',max,', ср.арифм.=',s/k:0:5)
end.

Тестовое решение:
Введите количество членов последовательности: 7
Вводите числа через пробел
25 -6 39 -118 271 24 -15
Min=-118, max=271, ср.арифм.=-46.33333

MOGZ ответил