Сколько поместиться 512кб в 16 гб (Решение напишите тоже )​

Program Pr;
Var
a : array [1..100, 1..100] of integer;
i, max, min, j, n: integer;
Begin
cls;
read(n);
min := 100000;
max := -100000;
for i := 1 to n do 
   for j := 1 to n do     
       begin           
           read(a[i,j]);           
           if (a[i,j] > max) then             
               max := a[i,j];           
          if (a[i,j] < min) then             
               min := a[i,j];     
        end;     
 writeln ('Сумма = ', min + max);
writeln ('Разность = ', max - min);
writeln ('Произведение = ', max * min);

End.

1) Сделай функцию, которая считает член выражения.

2) Сделай функцию, которая будет иметь 1 цикл, в котором будет считаться эта функция с метода из класса Math, сумма n элементов, сумма элементов которые больше е, сумма элементов которые больше е / 10.

В цикле будут два условия: (i <= n || Math.abs(an) > e), где an - n-ый член ряда. an считается в отдельной функции.

Как посчитать an у тебя написано в условии таска.

В конце ты должен вывести значение функции посчитанной методом класса Math, сумму n элементов ряда, сумму элементов ряда, которые больше е и сколько таких элементов, которые больше е, сумму элементов, которые больше е / 10 и сколько таких элементов, которые больше е.

P.S. Привет Соломатину.

Не знаю, что такого сложного в этом таске.

Спросил бы одногруппников, которые сдали 6 таск или хотя бы приступили к нему.

Не знаю, что ты будешь делать, когда начнёшь писать 7 или 8.... Удачи!

P.P.S. Соломатин пока не знает. Ещё раз увидим, что ты попытаешься списать таск, мы ему покажем это.