Const n = 10; var x: array[1..n] of integer; i, k: integer;
begin Randomize; Writeln('Элементы массива'); k := 0; for i := 1 to n do begin x[i] := Random(51)-25; Write(x[i]:4); if x[i]>0 then Inc(k) end; Writeln; Writeln('Количество положительных элементов массива равно ',k); end.
Тестовое решение: Элементы массива 1 13 -1 0 -25 7 -15 -21 14 9 Количество положительных элементов массива равно 5
program fofgogjoj; var n,i : integer; a,p : real; begin Writeln('Введите число.'); Readln(a); Writeln('Введите степень'); Readln(n); p:=1; for i:=1 to n do begin p:=p*a; end; if a<0 then p:=1/p; Writeln(p :6:3); readln; end.
FOR16
program fofgogjoj; var i, n: integer; a, p: real; begin Writeln('Введите число:'); Write(' a = '); Readln(a); Writeln('Введите показатель степени (n > 0):'); Write(' N = '); Readln(N); Writeln('Все степени числа ', a, ' от 1 до ', n, ':'); p:= 1; for i:=1 to n do begin p:= p*a; Writeln(' ', a, ' в степени ', i, ': ', p:0:2) end end.
n = 10;
var
x: array[1..n] of integer;
i, k: integer;
begin
Randomize;
Writeln('Элементы массива');
k := 0;
for i := 1 to n do
begin
x[i] := Random(51)-25;
Write(x[i]:4);
if x[i]>0 then Inc(k)
end;
Writeln;
Writeln('Количество положительных элементов массива равно ',k);
end.
Тестовое решение:
Элементы массива
1 13 -1 0 -25 7 -15 -21 14 9
Количество положительных элементов массива равно 5