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
const
n = 10;
var
a :array [1..n] of real;
i, j :integer;
min, k :real;
begin
for i:= 1 to n do
readln(a[i]);
min:= a[1];
for i:= 1 to n do
if a[i] < min then
begin
min:= a[i];
j:= i;
end;
k:= a[n];
a[n]:= a[j];
a[j]:= k;
end.
program task2;
const
n = 10;
var
a :array [1..n] of integer;
i, j, kol :integer;
begin
for i:= 1 to n do
readln(a[i]);
kol:= 0;
for i:= 1 to n do
if a[i] mod 3 = 0 then
inc(kol);
for i:= 1 to n do
if a[i] = kol then
begin
j:= i;
break;
end;
writeln(j);
end.