Какие таблицы называются вычислительными? Укажите правильный вариант ответа:
Таблицы, описывающие набор свойств одного класса объектов.
Любые таблицы, которые содержат числовые величины.
Таблицы, описывающие одно свойства некоторых пар объектов.
Таблицы, в которых одни свойства объектов вычисляются из других свойств объектов, записанных в этой же таблице.

INPUT s$
k = LEN(s$) + 1
FOR i = 1 TO k
    IF MID$(s$, i, 1) = " " THEN n = n + 1 'считаем число слов
NEXT i
n = n + 1
DIM f$(n)
j = 1
FOR i = 1 TO k 'разрезаем фразу на слова и заносим их в массив f
    t$ = MID$(s$, i, 1)
    f$(j) = f$(j) + t$
    IF t$ = " " THEN j = j + 1
NEXT i
f$(n) = f$(n) + " "
FOR i = 1 TO n 'делаем сортировку массива
    FOR j = 1 TO n
        IF LEFT$(f$(i), 1) < LEFT$(f$(j), 1) THEN
            P$ = f$(i)
            f$(i) = f$(j)
            f$(j) = P$
        END IF
    NEXT j
NEXT i
FOR i = 1 TO n
    PRINT f$(i);
NEXT i

Procedure Vvod(Var Q:mas; p:integer);
var i:integer;
begin
for i:=1 to p do
read(Q[i]);
end;

program obrab(N:mas; w:integer; var max:real;);
var i:integer;
begin
max:=1;
for i:=1 to w do
begin
if N[i]>0 then
max:=max*N[i];
end;
end;
program sravnenie(U:mas; O:mas; m.r:integer; maxA,maxB:real);
var i,j:integer

begin
if maxA>maxB then
begin
for i:=1 to m do
write(U[i]);
end
 else
begin
for i:=1 to r do
write(O[i]);
end;
end;

begin
writeln('vvedite kol-vo elementov mas1');
readln(n);
Vvod(A,n);
writeln('vvedite kol-vo elementov mas2');
readln(l);
Vvod(B,l);
obrab(A,n,max1);
obrab(B,l,max2);
sravnenie(A,B,n,l,max1,max2);
end.