Протабулировать в массиве функцию y=x²-z

type
massiv=array[1..5,1..5] of integer;
var
a:masiv;
i,j:integer;
begin
randomize;
for i:=1 to 5 do
for j:=1 to 5 do
 a[i,j]:=random(10);
writeln('matriza A');
for i:=1 to 5 do
 begin
  write(a[i,j]:3);
  writeln;
 end;
for i:=1 to 5 do
for j:=1  to 5 do
if j>i then a[i,j]:=1;
writeln('Matrica A');
for i:=1 to 5 do
begin
 for j:=1 to 5 do
  write(a[i,j]:3);
  writeln;
end;
readln;
end.

uses crt;
var
a:array[1..20] of integer;
i:integer;
max,max_i:integer;
begin
clrscr;
randomize;
for i:=1 to 20 do
 a[i]:=random(100)-50;
writeln('masiv A');
for i:=1 to 20 do
write(a[i],' ');
max:=a[i];
max_i:=i;
for i:=2 to 20 do
 if a[i]>max then
  begin
   max:=a[i];
   max_i:=i;
  end;
a[20]:=max;
writeln;
writeln('massiv A');
for i:=1 to 20 do
write(a[i],' ');
readln;
end.

uses crt;
var a:array[1..50,1..2]of byte;
    n,i,j,k:byte;
begin
clrscr;
write('Kolichestvo rejsov n=');
readln(n);
writeln('Vvedite raspisanie, 1-chasy, 2-minuty');
for i:=1 to n do
  repeat
   write('a[',i,',1]=');readln(a[i,1]);
   write('a[',i,',2]=');readln(a[i,2]);
  until (a[i,1]>=6)and(a[i,1]<=24)and(a[i,1]>=0)and(a[i,1]<=60);
clrscr;
writeln('Raspisanie:');
for i:=1 to n do
writeln(i:2,'. ',a[i,1],':',a[i,2]);
readln;
writeln('Mozno uehat c 12 do 13 chasov sleduyusshimi rejsami:');
k:=0;
for i:=1 to n do
if (a[i,1]>=12)and(a[i,1]<13) then{промежуток от 12 до 13 часов, это можно использовать при любом способе решения}
  begin
   k:=1;{фиксируем наличие таких рейсов}
   writeln(i:2,'. ',a[i,1],':',a[i,2]);
  end;
if k=0 then write('Takih rejsov net!');{если ноль, сообщаем}
readln
end.

uses crt;
var xn,xk,dx,x,zn,zk,dz,z,y,so,sp:real;
    a:array[1..1200] of real;{количество значений при данных приращениях по х и z=1104}
    n,i,k:integer;
begin
clrscr;
xn:=-5;xk:=4;dx:=0.2;
zn:=-5;zk:=2;dz:=0.3;{неудачный шаг, лучще 0,2 или 0,5}
x:=xn;n:=0;{начальные значения х и размера массива}
while x<=xk do{пока х не достиг конечного значения}
  begin
    z:=zn;{начальное значение z}
    while z<=zk do{пока z не достиг конечного значения}
      begin
       n:=n+1;{увеличиваем размер массива}
       y:=x*x-z;{считаем по формуле}
       a[n]:=y;{заносим в массив, хотя непонятно зачем}
       z:=z+dz;{наращиваем z}
      end;
    x:=x+dx;{наращиваем х}
   end;
so:=0;sp:=0;
writeln('Massiv znachenij funkcii:');
for i:=1 to n do
  begin
   write(a[i]:5:1);{выводим значения}
   if i mod 350=0 then readln;{если кратно 350, делаем задержку чтоб посмотреть}
   if a[i]<0 then so:=so+a[i]{считаем сумму отрицательных}
   else if a[i]>0 then sp:=sp+a[i];{считаем сумму положительных}
  end;
writeln;
writeln('Sunna otricatelnyh=',so:0:1);
writeln('Sunna polozitelnyh=',sp:0:1);
write('n=',n);{количество значений, для интереса, можно убрать}
readln
end.