Ответ Б
<span>b) Write ('Привет!!!');
</span>
Program ex;
type mass=array[1..10] of integer;
var sum, i:integer;
sr:real;
C:mass;
begin
writeln;
write ('Введите 10 элементов массива: ');
for i:=1 to 10 do
read(С[i]);
sum:=0;
for i:=1 to 10 do
begin
sum:=sum+c[i];
end;
sr:=sum/2;
write('Среднее арифметическое=',sr);
<span>end.</span>
For(int i=2;i<10;i++)
{
if(a[i]<a[i-1] && a[i]<a[i+1])
{sum+=abs(a[i]);}
}
В правой колонке всё правильно. В первой нужно убрать монитор.