Сформировать одномерный массив из 25 случайных целочисленных элементов, значения которых лежат в диапазоне -40..60. Из
отрицательных элементов исходного массива построить второй массив, определив
его максимальный и минимальный элементы. Построить третий массив, включив в
него из исходного массива элементы, кратные 4. Определить в этом массиве
количество элементов, больших среднего арифметического. Все промежуточные
результаты вывести на экран с комментариями. Программу построить с
использованием процедур и функций

через Pascal (Delphi, Lazarus)

Для того чтобы...
Школа:
1). Объяснить всё подробно и понятно в виде презинтации (в графическом виде) учителю или ученикам (друзьям)
2).Если будет всё понятно объяснить с схемы или рисунка (если это есть в презинтации)
3).Доказать что ты можешь и умеешь работать с презинтациями.
4).И конечно же для того чтобы получить хорошую отметку (оценку)
Дома:
1).Для самообучения в домашних условиях (чтобы было всё тебе понятно для кого - либо задания)
2).Для творческих целей.
3).Для игр (рисовать или создавать фигуры)
4).Для показа презинтации родственникам.
5).Для получения уважения родственников.
                      ОТВЕТ 101 %! ГАРАНТИРУЮ... УДАЧИ :)

Pascalabc.net var   a: array[1..10000] of integer;   kz,maxp,n,i,j: integer;   begin     i: =0;   maxp: =integer.minvalue;   writeln ('готов к приему чисел');   repeat     i: =i+1;     readln (a[i]);     until a[i]=0;   n: =i-1;   readln (kz);   for i: =1 to n-1 do      for j: =2 to n do        if maxp< (a[i]*a[j]) then maxp: =(a[i]*a[j]);     writeln ('получено ',n,' чисел');   writeln;   writeln ('полученное контрольное значение: ',kz);   writeln;   writeln ('вычисленное контрольное значение: ',maxp);   writeln;   if kz=maxp      then writeln ('контроль пройден')     else writeln ('контроль не пройден'); end. результаты: 1) готов к приему чисел 1 2 3 4 5 0 20 получено 5 чисел полученное контрольное значение: 20 вычисленное контрольное значение: 20 контроль пройден 2) готов к приему чисел 1 2 3 4 5 6 0 20 получено 6 чисел полученное контрольное значение: 20 вычисленное контрольное значение: 30 контроль не пройден