Напишите пожалуста програмный код в паскале для решения задачи

[Dina2360]

Дан ряд чисел B1,B2,...Bn. Выбрать из них только положительные числа и найти среднее арифмитическое квадратов этих чисел.

[Dina2360]

и еще плииз--В масиве из 20 целых чисел найти наибольший элемент и поменять его местами с первым элементом

[WorldMaster]

Студенты вы че совсем чтоли оболдели???
На этом форуме на халяву решают задачи чтоли??? Может еще поучится за вас в универе??? и диплом защитить???

слово "арифмитическое" пишется так арифмЕтическое

[Mad_Cat]

На этом форуме на халяву решают задачи чтоли

ты будешь удивлен - да решают)

1

k:=0;s:=0;
for i:=1 to n do
begin
readln(b[i]);
if b[i]>0 then begin inc(k);s:=s+sqr(b[i]);end
end;
if k<>0 then writeln(s/k);

2

m:=1;
for i:=1 to n do
begin
readln(b[i]);
if b[i]>b[m] then begin m:=i;end
end;
b[1]:=b[1]+b[m];
b[m]:=b[1]-b[m];
b[1]:=b[1]-b[m];

[Dina2360]

Cпасибо большое

[WorldMaster]

Сообщение от Mad_Cat

ты будешь удивлен - да решают)

мда ...