Электронный журнал (АСУ);
единая энциклопедия для учащихся онлайн, навигация по предметам (ИПС);
обучающие программы, позволяющие обучаться дистанционно (АСУ);
система, анализирующая успеваемость, позволяющая определять причины плохой успеваемости и давать рекомендации по ее улучшению (ЭС).
for(i:=1 to n) a[i]:=random(101);// заполняшь массив a целыми числами в диапозоне от 0 до 100
5120*1024=5242880
Наверное так
Program rp1;
uses crt;
var a: array [1..15] of integer; i: integer;
begin
clrscr;
randomize;a[i]:=random (41)-20;
writeln ('massiv ');
for i:=1 to 15 do
write (a[i], ' ');
for i:=1 to 15 do
if a[i]< 0 then a[i]:=sqr (a[i]) else a[i]:=sqrt (a[i]);
writeln ('novij massiv ');
for i:=1 to 15 do
write (a[i], ' ');
end.