Const N = 5; Var A:array[1..N] of integer; i:integer; S:real; Begin Randomize; S:=0; Write('Исхдный массив:'); For i:= 1 to N do Begin A[i]:=random(41)-20; Write(' ',A[i]); S:=S+1; End; WriteLn; WriteLn('Сумма элементов: ',S); End.
Var n, i, sum1, sum2, buf: integer; begin writeln('Введите количество бросков'); readln(n); sum1 := 0; sum2 := 0; i := 0; for i := 1 to n do begin writeln('Введите значения на кубиках после броска № - ', i, ' на кубике человека по имени А '); readln(buf); sum1 := sum1 + buf; end;
for i := 1 to n do begin writeln('Введите значения на кубиках после броска № - ', i, ' на кубике человека по имени B'); readln(buf); sum2 := sum2 + buf; end; if sum1 = sum2 then writeln('Ничья') else if sum1 > sum2 then writeln('Победил человек по имени А') else writeln('Победил человек по имени B'); end. Как то так ...
Сменой знака считается переход от отрицательного к нулю, от нуля к положительному, от отрицательного к положительному и наоборот. По крайней мере в условии не сказано обратное.
program progr1;
var count,i,n,x,znak,znak_old:integer; begin write('n-> '); readln(n); count:=0; for i:=1 to n do begin write(i,'-> '); readln(x); if x < 0 then znak:=-1; if x>0 then znak:=1; if x=0 then znak:=0; if i < > 1 then if znak < > znak_old then count:=count+1; znak_old:=znak; end; write('count=',count); readln; end.
N = 5;
Var
A:array[1..N] of integer;
i:integer;
S:real;
Begin
Randomize;
S:=0;
Write('Исхдный массив:');
For i:= 1 to N do
Begin
A[i]:=random(41)-20;
Write(' ',A[i]);
S:=S+1;
End;
WriteLn;
WriteLn('Сумма элементов: ',S);
End.