Program mm;
var a: array [1..10] of real; i: integer; s: real;
begin
for i:=1 to 10 do begin
Writeln("Введите элемент номер ",i); read(a[i]);
end;
for i:=1 to 10 do
if (a[i]>=2) and (a[i]<=5) then s:=s+a[i];
Writeln(s); readln;
end.
Если что, пиши в личку.
Эта задача на системы счисления.
Первое число записано в ДЕВЯТИРИЧНОЙ системе счисления:
2*9³ + 4*9² + 1*9¹ + 8*9⁰ = 1799 - год рождения А.С. Пушкина
А f16 - это точно???
Ведь Лермонтов родился на 15 лет позже, а число f16 - что-то очень уж большое :))
а ты вообще знаешь как они различаются
Ответ : день(5+6+15+30) самое наименьшее
Const N=30;
var s,b:real;
c,i:integer;
A:array[1..N] of real;
begin
Randomize();
b:=0;
c:=0;
for i:=1 to N do
begin
A[i]:=random(500)+300;
b:=b+A[i];
end;
s:=b/N;
for i:=1 to N do if A[i]<s then c:=c+1;
Writeln('Средняя зарплата: ',s);
Write('Количество сотрудников,получающих зарплату ниже средней: ',c);
End.