Program p_2; var z, a : real; m : integer; function step (n: integer; x: real): real; var i: integer; y: real; begin i: =1; y: =1; while i< =n do begin y: =y*x; i: =i+1; end; step: =y; end; {конец функции}begin write(‘введи степень и возводимое число’); readln(z,m); f: =step(m,z); writeln(z, ‘ в степени’, m, ‘=’,f); end.
1) program n_1; var a:array[1..10] of integer; i, n, k, s:integer; begin writeln('Введите кол-во элементов'); readln(n); k:=0; for i:=1 to n do begin a[i]:=random(20)+10; writeln(a[i],' '); if (i mod 2=0) then s:=s+a[i]; If (i mod 2<>0) then k:=k+1; end; writeln('Сумма=',s); writeln('Кол-во нечётных элементов=',k); end. 2) program kol_vo_elementov; var a:array[1..10] of integer; i, n, k, s:integer; begin writeln('Введите кол-во элементов'); readln(n); k:=0; for i:=1 to n do begin a[i]:=random(9)+1; writeln(a[i],' '); if (i mod 2=0) then k:=k+1; end; writeln('Кол-во чётных элементов=',k); end.
Объяснение:
100.110.122.133.144.155.166.177.188.199.200