Var sum: real; x, n: integer; begin readln(n); begin sum: =0; for x: =1 downto 1/n*n do sum: =sum+x; end; writeln(sum); end. в чём проблема? подскажите .

в цикле for значения x должны быть типа integer, а деление автоматически дает real. +  ко всему 1/n*n  всегда будет давать единицу, т к это все равно что n/n. Что прога делать должна?

Просто нужно заменить integer на real из-за деления

// PascalABC.NET 3.1, сборка 1204 от 24.03.2016
begin
  // общая часть
  var a:=ReadArrInteger('Массив:',ReadInteger('n='));
  var b:=ReadInteger('b=');
  // часть для задачи 1
  var i:=a.IndexOf(b);
  if i<0 then Writeln('Нет совпадений')
  else WritelnFormat('1. A[{0}]={1}',i+1,a[i]);
  // часть для задачи 2
  Writeln('2. k=',a.Where(x->x=b).Count);
  // часть для задачи 3
  var s:=a.Select((x,i)->x=a[i+1:a.Length].Sum).ToArray;
  var k:=s.IndexOf(True);
  if k>=0 then WritelnFormat('3. A[{0}]={1}',k+1,a[k])
  else Writeln('3. Не существует')
end.

Тестовое решение:
n= 10
Массив: -9 21 0 -9 21 6 -2 14 18 -15
b= -9
1. A[1]=-9
2. k=2
3. A[5]=21

Program p1;
Const N=10;//подставишь нужное N
Var A:array[1..N] of integer;
summa,kolvo,i:integer;
Begin
For i:= 1 to n do
Begin
A[i]:=random(101)-50;
Write(A[i],' ');
End;
Writeln;
For i:= 1 to n do
If a[i] mod 2<>0 then
Begin
summa:=summa+A[i];
kolvo:=kolvo+1;
End;
Writeln('Среднее арифметическое = ',summa/kolvo);
End.

 

 

Program p2;
Const N=10;//подставишь нужное N
Var A:array[1..N] of integer;
kolvo,i:integer;
Begin
For i:= 1 to n do
Begin
A[i]:=random(101)-50;
Write(A[i],' ');
End;
Writeln;
For i:= 1 to n do
If a[i] mod 2=0 then
kolvo:=kolvo+1;
Writeln('Число чётных элементов = ',kolvo);
End.