VAR A: ARRAY [1..10] OF INTEGER; i, sum: INTEGER; sr: REAL; BEGIN sum := 0; FOR i := 1 TO 10 DO READ (A[i]); FOR i := 1 TO 10 DO sum := sum + A[i]; sr := sum/10; WRITELN ('Среднее арифметическое = ', sr); END.
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.
A: ARRAY [1..10] OF INTEGER;
i, sum: INTEGER;
sr: REAL;
BEGIN
sum := 0;
FOR i := 1 TO 10 DO READ (A[i]);
FOR i := 1 TO 10 DO sum := sum + A[i];
sr := sum/10;
WRITELN ('Среднее арифметическое = ', sr);
END.