На стол подали мороженое: рожки и стаканчики. стаканчиков было 18, рожков втрое меньше, чем стаканчиков. гости взяли 5 рожков и 3 стаканчика. сколько порции мороженого каждого вида осталось на столе?

  18: 3=6 рожков                                                                                                                         6-5=1 рожок остался на столе                                                                                               18-3=15 стаканчиков осталось на столе

ответ:

program laba;

{$apptype console}

uses

  sysutils,

  windows;

var

  a: array[1..15] of integer;

  i,imax,x: integer;

begin

setconsoleoutputcp(1251);

  for i: =1 to 15 do

begin

writeln('введите',i,'-й элемент');

readln(a[i]);

end;

imax: =1;

for i: =2 to 15 do

if a[i]> a[imax] then imax: =i;

x: =a[15];

writeln('максимальное число = ',a[imax],' его индекс= ',imax);

if imax=15 then write('он последний, обмена нет');

else

  begin

  x: =a[imax];

  a[imax]: =a[15];

  a[15]: =x;

  writeln('обмен максимального и последнего: ');

  for i: =1 to 15 do

  write(a[i]: 6: 3,' ');

  end;

 

readln;

end.

объяснение:

sub swap()

    dim r as range, a as variant

    dim i as integer, im as double, n as integer, t as double

    n = 15

    set r = range(cells(1, 1), cells(1, n))

    a = r

    im = 1

    for i = 2 to n

        if a(1, i) > a(1, im) then

            im = i

        end if

    next i

    t = a(1, im)

    a(1, im) = a(1, n)

    a(1, n) = t

    set r = range(cells(2, 1), cells(2, n))

    r = a

end sub

на лист в ячейки а1 - о1 заносим исходные 15 чисел

на этот же лист через проект помещаем макрос и запускаем.

результат будет в ячейках а2 - о2