Question

Пожалуйста помогите найти ошибку Program primer; const n=s; var a: array [1..n] of integer; i,k: integer; begin k:=0; for i:=1 to n do begin a[i]:=-10 + random (20); write (a[i],' '); if a [i] < othen then (k); end; writeln ; writeln ('Кол-во отрицательных элементов'); readln; end.

Answer 1

Program primer;

const

n=5;

var

a: array [1..n] of integer;

i,k: integer;

begin

k:=0;

for i:=1 to n do

begin

a[i]:=-10 + random (20);

write (a[i],' ');

if a [i] < 0 then inc(k);

end;

writeln ;

writeln ('Кол-во отрицательных элементов ',k);

readln;

end.

Answer 2

Ваш код содержит несколько ошибок. Вот исправленная версия:

pascalCopy code
Program primer;

const
  n = 10;  // Заменил "s" на конкретное значение

var
  a: array [1..n] of integer;
  i, k: integer;

begin
  k := 0;
  
  // Заменил "othen" на "0", чтобы сравнивать с нулем
  for i := 1 to n do
  begin
    a[i] := -10 + random(20);
    write(a[i], ' ');
    if a[i] < 0 then
      k := k + 1;  // Исправил (k) на (k + 1)
  end;
  
  writeln;
  writeln('Кол-во отрицательных элементов: ', k);  // Добавил вывод количества отрицательных элементов
  readln;
end.

Внесенные изменения:

1. Заменил const n = s; на конкретное значение const n = 10;, так как "s" не было определено в вашем коде.
2. Заменил if a[i] < othen then (k); на if a[i] < 0 then k := k + 1;, чтобы правильно подсчитывать количество отрицательных элементов и убрал лишние скобки в (k).

Теперь код должен работать правильно и выводить количество отрицательных элементов в массиве.