Составить программу, которая вычисляет среднеарифметическое чисел, кратных 3 в диапазоне от 1 до 200. (язык pascal)
пожалуйста...

Но тогда надо так и писать.

Описка: 3,6,9, ... 195, 198.

мне вообще как нибудь по проще нужно....

мы еще рандом не проходили)))

И мы должны догадаться, как Вам надо и что Вы проходили?

PascalABC.NET 3.3.5, сборка 1650 от 01.04.2018Внимание! Если программа не работает, обновите версию!begin  var a:=ArrRandom(ReadInteger('n='),1,200); a.Println;  Writeln('Ср.арифметическое кратных 3: ',      a.Where(t->t mod 3=0).DefaultIfEmpty.Average)end.Примерn= 15185 103 5 33 116 167 189 36 79 110 188 12 26 11 10Ср.арифметическое кратных 3: 67.5

Если всё-таки нужно среднее арифметическое всех чисел, кратных 3, в диапазоне от 1 до 200var i,s,k:integer;beginfor i:=1 to 200 doif i mod 3 = 0 then begins:=s+i;k:=k+1end;writeln ('Среднее арифметическое чисел, кратных 3, в диапазоне от 1 до 200 равно: ',s/k)end.