Var
arr: array[1..100] of integer;
i, n, min, max: integer;
begin
min:=1;
max:=1;
readln(n);
for i:=1 to n do
begin
arr[i]:=random(100);
write(arr[i], ' ');
if arr[i]>arr[max] then max:=i;
if arr[i]<arr[min] then min:=i;
end;
writeln;
writeln('Минимальный(', arr[min], ');
Максимальный(', arr[max], ');');
end<span>.</span>
uses Crt;
const n=10;
Type Mas=array [1..n] of integer;
var P, M: Mas;
i: integer;
begin
ClrScr;
for i:=1 to n do
P[i]:=10+random(20);
for i:= 1 to n do
Write (P[i]:4);
WriteLn; WriteLn;
for i:=1 to n do
if (i mod 2 = 0) then M[i]:=i*P[i] else M[i]:=-1*P[i];
for i:=1 to n do
Write (M[i]:4);
ReadLn;
end.
Var a: array [1..100] of integer;
min,a,p: integer;
begin
read(n);
for i:= 1 to n do
read (a[i]);
min:a[1]; p:=1;
for i:=2 to n do
if a[i]< min then
begin
min:=a[i];
p:=i;
end;
writeln('min,=; ,min);
writeln (' на позиции;p);
end.
1) 48*1024/(64*64) = 12 страниц.
2) 10*32*48*2 = 30720 байт = 30 кб.
3) 24*32*60 = 46080 байт = 45 кб.
Исходник и пример работы в приложении.
4 функции (для каждой неизвестной) описаны в главной программе main, следовательно такая конструкция подходит "на 5" по вашему набору оценок.