<span>Выполнив указанные в сообщении действия, Наташа получила следующий код для цифрового замка:
133</span>
Tab+ctrl jdkid rocbldgsoshsldhdi
Смотря что ты можешь сделать
и какие усилия готова в него вложить!!!
Const
n = 40;
var
x: array[1..n] of integer;
i, k, s: integer;
begin
Randomize;
Writeln('Элементы массива');
k := 0; s := 0;
for i := 1 to n do
begin
x[i] := Random(50);
Write(x[i]:3);
end;
Writeln;
Writeln('Элементы со значением в интервале [7;10]');
for i := 1 to n do
if (x[i] >= 7) and (x[i] <= 10) then
begin
k := k + 1; s := s + x[i];
Write(x[i]:3)
end;
if k = 0 then Writeln('не найдены')
else Writeln(#13#10, ' Элементов:', k, ', среднее арифметическое=', s / k:5:3)
end.
Тестовое решение:
Элементы массива
24 33 36 29 12 7 5 36 3 48 40 40 46 6 10 23 33 3 38 48 29 37 11 40 44 16 17 18 34 38 33 39 9 0 41 37 42 2 40 31
Элементы со значением в интервале [7;10]
7 10 9
Элементов:3, среднее арифметическое=8.667
Program e;
var s,x,n : real;
begin
writeln('Введите n');
readln(n);
x:=1488;
s:= x*3 + x*5 + x*n;
writeln('lentyai)) ',s);
<span>end.</span>