Я уже отвечал вашему однокласснику, видимо ;) Ответ - -16
1)18<A
2)18<=A
3)A<18
4)A<=18
5)A mod 4 = 0
6)A<=55
Если одномерный массив, то:
program min;
var a:array[1..10] of integer;
i,min,k:integer;
begin
writeln('Введите элементы массива');
for i:=1 to 10 do
readln(a[i]);
min:=a{1];
for i:=1 to 10 do
if a{i]<min
then min:=a{i};
for i:=1 to 10 do
if a{i]=min
then k:=k+1;
writeln('Всего элементов с минимальным значением =',k);
end.
<em>// PascalABC.NET 3.2, сборка 1383 от 09.02.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
Writeln(Range(1,100).Aggregate(BigInteger(1),(x,y)->x*y))
end.
<u>Результат</u>
93326215443944152681699238856266700490715968264381621468592963895217599993229915608941463976156518286253697920827223758251185210916864000000000000000000000000