Const K = 10; Var Z:array[1..K] of integer; i:integer; P,O:real; Begin For i:= 1 to K do Begin Z[i]:=random(21)-10; Write(Z[i],' '); if Z[i]<0 then O:=O+Z[i] else P:=P+Z[i]; End; WriteLn; WriteLn('Сумма положительных элементов: ',P); WriteLn('Сумма отрицательных элементов: ',O); End.
То же, но с вводом с клавы:
Const K = 10; Var Z:array[1..K] of integer; i:integer; P,O:real; Begin WriteLn('Введите элементы массива:'); For i:= 1 to K do Begin Read(Z[i]); if Z[i]<0 then O:=O+Z[i] else P:=P+Z[i]; End;
1. var p:real; i:integer; begin write('цена 1 кг конфет = '); readln(p); for i:=1 to 10 do writeln(i,' кг - ',i*p:5:2); end.
Пример: цена 1 кг конфет = 125.50 1 кг - 125.50 2 кг - 251.00 3 кг - 376.50 4 кг - 502.00 5 кг - 627.50 6 кг - 753.00 7 кг - 878.50 8 кг - 1004.00 9 кг - 1129.50 10 кг - 1255.00
2. var a,b,p,i:integer; begin write('a, b: '); readln(a,b); p:=1; for i:=a to b do p:=p*i; writeln('p = ',p); end.
Пример: a, b: 5 10 p = 151200
3. var n,i:integer; s:real; begin write('n = '); readln(n); s:=0; for i:=1 to n do s:=s+1/i; writeln('s = ',s:8:3); end.
K = 10;
Var
Z:array[1..K] of integer;
i:integer;
P,O:real;
Begin
For i:= 1 to K do
Begin
Z[i]:=random(21)-10;
Write(Z[i],' ');
if Z[i]<0 then O:=O+Z[i]
else P:=P+Z[i];
End;
WriteLn;
WriteLn('Сумма положительных элементов: ',P);
WriteLn('Сумма отрицательных элементов: ',O);
End.
То же, но с вводом с клавы:
Const
K = 10;
Var
Z:array[1..K] of integer;
i:integer;
P,O:real;
Begin
WriteLn('Введите элементы массива:');
For i:= 1 to K do
Begin
Read(Z[i]);
if Z[i]<0 then O:=O+Z[i]
else P:=P+Z[i];
End;
WriteLn;
WriteLn('Сумма положительных элементов: ',P);
WriteLn('Сумма отрицательных элементов: ',O);
End.