8класс. самостоятельная работа по таблицам истинности. 4 вариант. 100 !

Const n=10; m=5;
var
   i,j,k:integer;
   A:array[1..n] of integer;
   B,C:array[1..m] of integer;
begin
   writeln('Введите элкменты массива');
   for i:=1 to n do readln(a[i]);
   j:=0; k:=0;
   for i:=1 to n do
     if i mod 2=1 then begin j:=j+1; B[j]:=A[i] end
     else begin k:=k+1; C[k]:=A[i] end;
   writeln('Массив А');
   for i:=1 to n do write(A[i],' ');
   writeln;
   writeln('Массив B');
   for i:=1 to j do write(B[i],' ');
   writeln;
   writeln('Массив C');
   for i:=1 to k do write(C[i],' ');
   writeln
end.

1
DIM A(10, 5)
RANDOMIZE TIMER
FOR I = 1 TO 10
    FOR J = 1 TO 5
        A(I, J) = INT(RND * 10)
        PRINT A(I, J);
        S = S + A(I, J) ^ 2
    NEXT J
    PRINT , S
NEXT I

Исправленный вариант (предыдущий находил только суммы квадратов элементов). Уменьшил размерность массива и значение элементов, что бы через-чур большие числа не появлялись
DIM A(3, 3)
RANDOMIZE TIMER
P = 1
FOR I = 1 TO 3
    FOR J = 1 TO 3
        A(I, J) = INT(RND * 5)
        PRINT A(I, J);
        S = S + A(I, J) ^ 2
    NEXT J
    P = P * S
    PRINT
NEXT I
PRINT
PRINT "P="; P

2 
DIM A(10)
RANDOMIZE TIMER
P = 1
FOR I = 1 TO 10
    A(I) = INT(RND * 20) - 10
    PRINT A(I); " ";
    IF A(I) > O THEN
        S = S + A(I)
        P = P * A(I)
        N = N + 1
    END IF
NEXT I
PRINT
PRINT "S=";
SPRINT "P=";
PPRINT "Kol-vo="; N