2 Задачки на массивы в Паскале

[Nikolai17]

1 ) В одномерном массиве данные размещены парами: в первых элементах значения аргумента, во вторых – соответствующие им значения функции. Вывести на экран элементы этого массива в виде таблицы.
Моя попытка

program gfd;
const n= 10;
 var A:array [1..n] of real;
     F:array [1..n] of real;
     AF:array [1..n,1..n] of real;
     i:integer;
begin
 for i:=1 to n do 
 read(AF[i]);
begin
 write(AF[i]); 
 
readln;
end.

2_) Задан массив, содержащий несколько нулевых элементов. Сжать его, исключив нулевые элементы.

[Stilet]

1)
Подсказываю:

 const n= 10;
 var AF:array [1..n,1..2] of real;
     i:integer;
begin
 writeln('x':5,'Fx':10);
 for I := 1 to n  do begin
  af[i,1]:=i;
  af[i,2]:=ln(i);
  writeln(af[i,1]:5:2,af[i,2]:10:3);
 end;
 readln;
end.

[Utkin]

Во второй задаче массив динамический?

[ОДИНОЧЕСТВО В СЕТИ]

2stilet в 1 задаче

В одномерном массиве

1)

const n=6;
type vector = array[1..100] of integer;
var a:vector;
    i:Integer;
begin
  for i:=1 to n do
     a[i]:=Random(n);
  Writeln('':4,'x','':3,'f(x)');
  for i:=1 to n do
    begin
       write(a[i]:5);
       if i mod 2 = 0 then Writeln;
    end;
  Readln;
end.

2)

const n=6;
type vector = array[1..100] of integer;
var
  a:vector;
  i,k,l:Integer;
begin
  Randomize;
  for i:=1 to n do
    a[i]:=Random(n);
    Writeln('------OLD ARRAY-------');
  for i:=1 to n do
    write(a[i]:4);
  i:=1;
  k:=n;
  while i<=k do begin
   if a[i]=0 then begin
     for l:=1 to k do
       a[i]:=a[i+1];
     k:=k-1;
   end;
     i:=i+1;
  end;
  Writeln;
  Writeln('------NEW ARRAY-------');
  for i:=1 to k do
    write(a[i]:4);
  Readln;
end.

[Stilet]

ОДИНОЧЕСТВО В СЕТИ

Солнышко, но у тя ведь тоже не совсем верно - нет вычисления функции.
Тогда уж так:

const n= 10;
 var AF:array [1..n*2] of real;
     i:integer;
begin
 writeln('x':5,'Fx':10);
 for I := 1 to n  do begin
  af[i]:=i;
  af[i+1]:=ln(i);
  writeln(af[i]:5:2,af[i+1]:10:3);
 end;
 readln;
end.

[ОДИНОЧЕСТВО В СЕТИ]

stilet

В одномерном массиве данные размещены парами: в первых элементах значения аргумента, во вторых – соответствующие им значения функции.

не надо там ничего считать данные уже в массиве!

[Nikolai17]

Спасибо ребят = ) а то я уже 2 недели мучался