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
<span>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
<span>PRINT "P="; P</span>
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
</span>
Вычислим площадь КРУГА (площади окружности не существует :)))
См. скриншот.
А также результат работы этой программы
Антоним этого слова: <span>отнятие</span>
Const n=4; m=5;
type ar=array[1..n,1..m] of integer;
procedure p1(var a:ar);
var i,j:integer;
begin
for i:=1 to n do begin
for j:=1 to m do begin
a[i,j]:=random(20)-10;
write(a[i,j]:4);
end;
writeln;
end;
end;
var a:ar; i,j,max,im,jm:integer;
begin
Randomize;
p1(a);
max:=a[1,1]; im:=1; jm:=1;
for i:=1 to n do
for j:=1 to m do
if a[i,j]>max then
begin max:=a[i,j]; im:=i; jm:=j; end;
writeln('max = a[',im,',',jm,'] = ',max);
<span>end.
Пример:
2 -1 -7 0 7
3 7 -7 -7 3
-7 -5 -3 -2 5
9 -4 -4 -7 -7
<span>max = a[4,1] = 9</span></span>
