Найти максимальное натуральное число меньше 5000, которое делится нацело на 39.

Var a,b: integer; begin for a: =1 to 4999 do begin if (a mod 39=0) then b: =a; end; writeln(b); end.ответ: число 4992

Const c: array [1..10] of integer = (-7,3,0,2,-1,4,8,-9,1,6); var b,d: array [1..10] of integer;       p,k,max,i,j,tmp: integer; begin   p: =1;   for i: =1 to 10 do     if c[i] > 0 then p: =p*c[i];   k: =0;   for i: =1 to 10 do     if c[i] < 0 then inc(k);   d: =c;   max: =d[1];   for i: =2 to 10 do     if c[i] > max then max: =c[i];   writeln ('max: ',max);   writeln ('kol-vo otriz. elementov: ',k);   writeln ('proizvedenie: ',p);   for i: =1 to 10 do     if c[i] > = 0 then b[i]: =c[i]+10 else       if c[i] < 0 then b[i]: =c[i]*c[i];   writeln ('new massiv: ');   for i: =1 to 10 do write (b[i],' ');   writeln;   for i: =1 to 9 do     for j: =i+1 to 10 do       if d[j] > d[i] then         begin           tmp: =d[j];           d[j]: =d[i];           d[i]: =tmp;         end;     for i: =1 to 10 do write (d[i],' ');   writeln; end.

Для начала продумаем наше решение. сначала заполним массив случайными числами с цикла и сразу в нем найдем сумму его чисел, чтобы потом найти среднее арифметическое, а потом уже в следующем цикле будем искать числа больше или меньше среднего арифметического.для того чтобы решить нам понадобятся следующие переменные : 1. переменная  mass  — для нашего массива2. переменная  more  — для чисел больше среднего арифметического3. переменная  less  — для чисел меньше среднего арифметического4. переменная  aver  — для среднего арифметического5. переменная  i  — для цикланачнем мы с каркаса нашей программы : 123456789101112131415const n = 40; type        massiv = array [1..n] of integer; var        mass: massiv;         more, less, i : integer;         aver : real;         begin        randomize;                   aver : = 0;         more : = 0;         less : = 0; end.