DIM X(5, 5)
RANDOMIZE TIMER
FOR I = 1 TO 5
FOR J = 1 TO 5
X(I, J) = INT(RND(1) * 10)
NEXT J
NEXT I
FOR I = 1 TO 5
X(I, 0) = X(I, 1) 'В скобках не буква О, а цифра 0
FOR J = 1 TO 5
IF X(I, 0) > X(I, J) THEN X(I, 0) = X(I, J)
PRINT X(I, J); " ";
NEXT J
PRINT "MIN=";X(I, 0)
S = S + X(I, 0)
NEXT I
PRINT "S="; S<span>
</span>
Информатика
.. - - ... - . - - - . - . - - . - - .. - . - . -
данные
- ... - - . - . - . - - .
алгоритм
. - . - .. - - . - - - . - ... - - -
Человек ,группа людей животное или техническое устройство , способное выполнять определённый набор команд - это ИПОЛНИТЕЛЬ.
Ответ:1)
Uses Crt;
Var
A:array[1..256] of integer;
i,iMin,N,B:integer;
Begin
ClrScr;
Randomize;
Write('N = ');ReadLn(N);
Write('A(',N,'):');
iMin:=1;
For i:= 1 to n do
Begin
A[i]:=random(21)-10;
Write(' ',A[i]);
if A[i] < A[iMin] then iMin:=i;
End;
WriteLn;
WriteLn('Min(A) = ',A[iMin],'[',iMin,']');
Write('Min = ');ReadLn(i);
B:=A[i];
A[i]:=A[iMin];
A[iMin]:=B;
Write('A(',N,'):');
For i:= 1 to n do
Write(' ',A[i]);
ReadKey
End.