Бейсик Python
FOR n = 1 TO 100
A(n) = n - 10
NEXT n
FOR n = 1 TO 100
B(n) = A(n)*n;
NEXT n
for n in range(1, 101):
A[n] = n - 10
for n in range(1, 101):
B[n] = A[n]*n
Паскаль Алгоритмический язык
for n : = 1 to 100
do A[n] : = n - 10;
for n : = 1 to 100 do begin
B[n]:= A[n]*n;
end;
n от 1 до 100
A[n] : = n - 10
n от 1 до 100
B[n]:=A[n]*n
for (n = 1; n <= 100; n++) {
A[n] = n - 10;
for (n = 1; n <= 100; n++) {
B[n] = A[n]*n;
Program asd;
Const
N=15;
M=15;
Var
l:array [1..15,1..15] of integer;
min,i,j,k,k1:integer;
Begin
min:=l[1,1];
Writeln('Введите элементы матрицы:');
For i:=1 to n do
For j:=1 to m do
Begin
Write('L[',i,',',j,']=');
Readln(l[i,j]);
If l[i,j]<min then begin min:=l[i,j]; k:=i; k1:=j; end;
End;
Writeln('Минимальный элемент L[',k,',',k1,']= ',min);
End.
F.C.B 0000000000000000000000000000000000000