Program help;
Uses Crt;
Const n = 10; (* Размер массива *)
Var a : Array[1..n] of Integer; (* Массив с числами *)
i : Integer;
Begin
Randomize;
ClrScr;
Writeln('Массив: ');
For i := 1 to n do
Begin
a[i] := random(601) - 300; (* Заполняем рандомными числами *)
Writeln('a[', i, '] = ', a[i]); (* Выводим на экран *)
if (a[i] mod 3 = 0) and (a[i] mod 5 <> 0) then
a[i] := 0; (* Обнуляем числа кратные 3 и не кратные 5 *)
End;
Writeln('Массив после изменения: ');
For i := 1 to n do
Writeln('a[', i, '] = ', a[i]); (* Выводим на экран *)
End.
Возможно западает какая-нибудь клавиша на клавиатуре или мышке (если были механические повреждения или что-нибудь проливали). Либо может кто-то шутить, подключившись через программу удаленного управления, например.
Объяснение:
#наименьшее кратное 3 на отрезке [1; 1000]
#(x+k-1)//k - деление с округлением вверх
mn = (1+(3-1))//3 * 3
#наибольшее кратное 3 на отрезке [1; 1000]
#x//k - деление с округлением вниз
mx = 1000//3 * 3
#среднее арифметическое чисел, кратных 3
#это следует из формулы суммы арифметической прогрессии
#sum = (a1+an)/2*n - сумма
#mean = sum/n = (a1+an)/2 - среднее
mean = (mn+mx)/2
print(mean)
мышь микрофон.............................................