Язык программирования турбо паскаль дан массив а из n действительных чисел: a1, …, an. вычислить: a1, a1+a2, …, a1+a2+…+an; заменить все элементы массива, большие семи, числом 7. вычислить количество таких элементов.

Var   i, j: integer;   arr: array of real;   s: real; begin   readln(i);   setlength(arr, i);       for i : = 0 to length(arr) - 1 do   begin     arr[i] : = random(5) + 6;     write(arr[i], ' ');   end;       writeln();       for i : = 0 to length(arr) - 1 do   begin     s : = 0;     write('a[0]..a[', i, '] => ');     for j : = 0 to i do       s : = s + arr[j];     writeln(s);   end;       writeln('===============================');       j : = 0;       for i : = 0 to length(arr) - 1 do   begin     if (arr[i] > 7) then     begin       arr[i] : = 7;       j : = j + 1;     end;     write(arr[i], ' ');   end;   writeln();   writeln(j); end.

1. для цикла for var   x,n,p: longint;   i: integer; begin   readln (x,n);   p: =1;   for i : = 1 to n do       p: =p*x;   writeln(x,' в степени ',n,' равно ',p ); end. 2. для цикла while var   x,n,p: longint;   i: integer; begin   readln (x,n);   p: =1;   i: =1;   while i< =n do begin       p: =p*x;       i: =i+1;   end;   writeln(x,' в степени ',n,' равно ',p ); end. 3. для цикла repeat var   x,n,p: longint;   i: integer; begin   readln (x,n);   p: =1;   i: =1;   repeat       p: =p*x;       i: =i+1;   until i> n;   writeln(x,' в степени ',n,' равно ',p ); end.

Const n=4; m=5; var a: array [1..n,1..m] of integer;   i,j,min,imin,jmin: integer; begin randomize; writeln('исходный массив: '); for i: =1 to n do   begin   for j: =1 to m do begin   a[i,j]: =random(21)-10;   write(a[i,j]: 6);   end; writeln; end; min: =a[1,1]; imin: =1; jmin: =1; for i: =1 to n do   for j: =1 to m do   if a[i,j]< min then     begin min: =a[i,j]; imin: =i; jmin: =j; end; writeln('min=a[',imin,',',jmin,']=',min); end. пример: исходный массив:       5     8     2     -5     -4       1   -10     9     1     -4       8     2     -6     -4     -4       8     7     3     2     2 min=a[2,2]=-10