Question

Begin for i:=1 to n do Read(a[i]); {k:=0;} for i:=1 to n do if not Odd(a[i]) then begin Inc(k); Write(' ',a[i]); end; if k=0 then WriteLn('чётных элементов нет'); Пишет встречен "конец файла а ожидался оператор". Помогите пж не пойми что нужно

Answer 1

Объяснение:

Количество begin должно совпадать с количеством end

Нужно что-то присвоить функции для случая, когда (2*a+b-c)<0

Например, так:

function sqrt1 (a, b, c: real): real;

begin

if (2 * a + b - c) < 0 then

begin writeln (' complex number '); sqrt1:=-1; end

else sqrt1:= sqrt(2 * a + b - c);

end;

Answer 2

Ошибка "встречен 'конец файла', а ожидался оператор" обычно связана с неверным синтаксисом или отсутствием необходимых ключевых слов в вашем коде. Предполагая, что вы используете Pascal или подобный язык программирования, ваш код, вероятно, должен выглядеть примерно так:

pascalCopy code
Program Main;
var
  a: array[1..100] of integer;
  n, i, k: integer;
begin
  k := 0;
  
  Write('Введите n: ');
  ReadLn(n);

  for i := 1 to n do
  begin
    Read(a[i]);
  end;

  for i := 1 to n do
  begin
    if not Odd(a[i]) then
    begin
      Inc(k);
      Write(' ', a[i]);
    end;
  end;

  if k = 0 then
  begin
    WriteLn('Чётных элементов нет');
  end;

  ReadLn;
end.

Этот код корректно объявляет переменные, считывает значение n, а затем считывает n чисел в массив a. Затем он проверяет каждое число в массиве и выводит четные числа. Если не находит четных чисел, то выводит "Чётных элементов нет".

Пожалуйста, убедитесь, что ваш код имеет правильную структуру и синтаксис языка Pascal (или того языка, который вы используете), и что все необходимые ключевые слова, такие как begin, end, var, Program, объявлены корректно.