С ИНФОРМАТИКОЙ 10 КЛАСС (НАПИСАТЬ ПРОГРАММЫ PASCAL)
1.
В магазине продают конфеты. В первый день продали 1/5 всех конфет. Во второй
день продали В % от оставшихся конфет. После этого осталось 24 кг конфет. Сколько конфет было вначале?
2.
У Светланы T друзей. На день рождения каждый из них подарил Светлане цветы.
Причём первый подарил 1 цветок, второй 3 цветка, третий 5 цветков и т. д. Сколько всего цветов подарили Свете? Причём, если в сумме получалось чётное количество цветов, то последний дарил на 1 цветок меньше.
3.
В 7 классе B человек. Каждый из них участвовал в сборе макулатуры. Есть
последовательность из В чисел — количество кг макулатуры, принесённых каждым учеником. Сколько всего собрано макулатуры 7 классом и сколько в среднем приходится кг макулатуры на одного ученика.

Const N = 10;Const M = 10;Var  A:Array [1..N, 1..M] Of Integer;  i, j, imax, jmax, imin, jmin, temp:Integer; Begin  randomize;  For i := 1 to N do  Begin    For j := 1 to M do    Begin      A[i, j] := random(1000);    End;  End;  imin := 1;  imax := 1;  jmin := 1;  jmax := 1;  For i := 1 to N do  Begin    For j := 1 to M do    Begin      If A[i, j] > A[imax, jmax] then      Begin        imax := i;        jmax := j;      End;      If A[i, j] < A[imin, jmin] then      Begin        imin := i;        jmin := j;      End;    End;  End;  writeln('first elem: ', A[imax, jmax], ', second elem: ', A[imin, jmin]);  temp := A[imin, jmin];  A[imin, jmin] := A[imax, jmax];  A[imax, jmax] := temp;  writeln('first elem: ', A[imax, jmax], ', second elem: ', A[imin, jmin]);End.

Const
  N = 5;
var
  i, j: integer;
  a: array[1..N, 1..N] of integer;
  min, max: array[1..N] of integer;
begin
  writeln('Исходный массив: ');
  for i := 1 to N do begin
    for j := 1 to N do begin
      a[i, j] := Random(10);
      write(a[i, j] : 3);
      if (j = 1) or (max[i] > a[i, j]) then max[i] := a[i, j];
      if (i = 1) or (min[j] < a[i, j]) then min[j] := a[i, j];
    end;
    writeln;
  end;
  writeln('Седловые точки: ');
  for i := 1 to N do
    for j := 1 to N do
      if max[i] = min[j] then writeln('[', i, '; ', j, ']');
end.