Если договор простого товарищества связан с осуществлением его участниками предпринимательской деятельности, то по всем общим обязательствам

Данные		Результаты
N=4	A=(3, -1, 10, 1)	Amax=10	K=3

Исполнение алгоритма

i	A[i] > Amax	Amax	k
2 3 4	- + -	3 10	1 3

Блок-схема

Turbo Pascal

Program MaxElem;

  Uses Crt;

  Type Mas = Array [1..20] of Real;

  Var A   : Mas;

  i, N : Integer;

  k   : Integer;

  Amax : Real;

BEGIN

  СlrScr;

  Write('Введите N = ');

  ReadLn(N);

  For i := 1 to N do {Ввод значений элементов массива А}

  begin

  Write('A [ ', i, ' ] = '); ReadLn(A[i])

  end;

  Amax := A[1]; k:=1; {Поиск максимального элемента}

  For i := 2 to N do

  If A[i] > Amax then

  begin

  Amax := A[i]; k := i

  end;

  WriteLn; WriteLn('Наибольший элемент' , k , '-й');

  WriteLn('Его значение ', Amax : 5 : 1); ReadLn

END.

   QBasic

CLS

INPUT "N = "; N : DIM A(N)

FOR i = 1 TO N ' Ввод массива А

  PRINT "A("; i; ") = ";

  INPUT A(i)

NEXT i

Amax = A(1) : k = 1   ' Поиск максимального элемента

FOR i = 2 TO N

  IF A(i) > Amax THEN Amax = A(i) : k=i

NEXT i

PRINT "Наибольший элемент" ; k ; "-й"

PRINT "Его значение" ; Amax

END

Данные		Результат
N=5	A=(3, 5, -2, 6, 3)	S=15.0

Исполнение алгоритма

i	S
	0
1	0 + a1 = 0+3 = 5
2	a1 + a2 = 3+5 = 8
3	a1+a2+a3 = 8-2 = 6
4	a1+a2+a3+a4 = 6+6 = 12
5	a1+a2+a3+a4+a5 = 12+3=15

Блок-схема

Turbo Pascal

Program Summa;

  Uses Crt;

  Type Mas = Array [1..20] of Real;

  Var A   : Mas;

  i, N : Integer;

  S   : Real;

BEGIN

  ClrScr;   {очистка экрана }

  Write('Введите N = ');

  ReadLn(N); {ввод значения N}

  For i := 1 to N dо {цикл по элементам массива}

  begin

  Write('A [ ', i , ' ] = ');

  ReadLn(A[i]) {ввод элементов массива}

  end;

  S := 0; {присваивание начального значения}

  For i := 1 to N do S := S+A[i]; {суммирование}

  WriteLn;

  WriteLn('Сумма равна ', S : 5 : 1);

  ReadLn

END.