Const N = 15; Var A:array[1..N] of integer; i,Kc,Kn,Sn:integer; Begin Kc:=0; Sn:=0; Kn:=0; Randomize; Write('Исходный массив:'); For i:= 1 to N do Begin A[i]:=random(21)-10; Write(' ',A[i]); if A[i] mod 2 = 0 then Kc:=Kc+1; if A[i] mod 2 <> 0 then Begin Sn:=Sn+A[i]; Kn:=Kn+1; End; if A[i]>0 then A[i]:=0; End; WriteLn; WriteLn('Количество чётных: ',Kc); WriteLn('Среднее арифметическое нечётных: ',Sn/Kn); Write('Новый массив:'); For i:= 1 to N do Write(' ',A[i]) End.
Var X,Y,K:integer; E,p:real; Begin Write('Сколько яблок в наличии: ');ReadLn(X); Write('Сколько человек: ');ReadLn(Y); Write('Сколько долларов за одно яблоко: ');ReadLn(E); Write('Сколько рублей за один доллар: ');ReadLn(p); if X mod 5 <> 0 then K:=X+5-(X mod 5) else K:=X; While K/Y<1.66 do K:=K+5; WriteLn('Требуемое количество яблок: ',K); WriteLn('Столько яблок придётся докупить: ',K-X); WriteLn('Стоимость докупленных яблок: ',(K-X)*E*p:0:2,' руб.'); End.
Пример:
Сколько яблок в наличии: 1 Сколько человек: 3 Сколько долларов за одно яблоко: 50 Сколько рублей за один доллар: 0.05 Требуемое количество яблок: 5 Столько яблок придётся докупить: 4 Стоимость докупленных яблок: 10.00 руб.
Объяснение:
Для записи чисел в восьмеричной системе счисления используются цифры:
1, 9, 7