Программа пройдётся по массиву. Если елемент массива больше М, то елемент будет записан в М. И так 10 раз. В конце выводится М. В итоге выведет 41 (самое большое число в массиве).
№1
begin
var a:array[1..7] of integer;
var pr:=1;
for var i:=1 to 7 do
begin
a[i]:=readlninteger('Введите элемент массива');
pr*=a[i];
end;
writeln('Произведение:',pr);
end.
№2
begin
var a:array[1..20] of integer;
var k:=0;
for var i:=1 to 20 do
begin
a[i]:=2*i+sqr(i)-100;
if a[i]<0 then k+=1;
end;
writeln('Кол-во:',k);
end.
Будет совершенствоваться прорисовка объектов, будут составляться 3хмерные проекты домов, городов, карты будут поддерживать 3д прорисовку, игровая графика будет улучшаться, по примерам тут просто прогресс, если сравнивать 2005 и 2013 будет явно видна разница