Program NoName;
Var vid,i,n,k,max:integer;
sr:real;
a:array[1..9999] of integer;
Begin
mx:=0;
max:=0;
k:=0;
vid:=0;
sr:=0;
Read (n);
For i:=1 to n do
Begin
Writeln(a[i] :3);
max:=a[1];
If a[i] > max then
max:=a[i];
If a[i] < 0 then
Begin
vid:=vid + a[i];
k:=k+1;
End;
End;
sr:=vid / k;
For i:=1 to n do
Begin
If a[i] < max then
Write (a[i])
Else
Write (sr);
End;
End.
Не могу быть уверенным за правильность, нет возможности проверить
Алгоритм это последовательность действий для достижения цели.Например алгоритм дойти до работы.
1. Проснутся
2. Умытся
3. Одется.
4. Выключить всё в доме.
5. Закрыть дверь.
6. Пойти по дороге( автобусе,машине) на работу.
7. Конец .
Возможно , стоило пойти прямо и направо ,то есть два поворота в лево лишние
Const N = 10;Const M = 10;Var A:Array [1..N, 1..M] Of Integer; i, j, imax, jmax, imin, jmin, temp:Integer; Begin randomize; For i := 1 to N do Begin For j := 1 to M do Begin A[i, j] := random(1000); End; End; imin := 1; imax := 1; jmin := 1; jmax := 1; For i := 1 to N do Begin For j := 1 to M do Begin If A[i, j] > A[imax, jmax] then Begin imax := i; jmax := j; End; If A[i, j] < A[imin, jmin] then Begin imin := i; jmin := j; End; End; End; writeln('first elem: ', A[imax, jmax], ', second elem: ', A[imin, jmin]); temp := A[imin, jmin]; A[imin, jmin] := A[imax, jmax]; A[imax, jmax] := temp; writeln('first elem: ', A[imax, jmax], ', second elem: ', A[imin, jmin]);End.
