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

Объяснение:

Pascal

program pr;

var

 i, n, k, cout: integer;

 a, b: array [1..100] of integer;

begin

 cout := 0;

 k := 1;

 writeln('Введите размер массива');

 readln(n);

 if (n>0) and (n<=10000) then  

 begin

 for i := 1 to n do

 begin

   read(a[i]);

 end;

 writeln;

 for i := 1 to n do

   if a[i] < 0 then

   begin

     cout := cout + 1;

     b[k] := a[i];

     k := k + 1;

   end;

 if cout = 0 then

   writeln(0) else  

   for k := 1 to cout do

     write(b[k]:3);

     end

     else writeln('Не корректный ввод n');

end.

Выделите информативные и неинформативные сообщения в следующих ситуациях:

1. прослушан прогноз погоды на завтра;

2. прозвучало сообщение о вчерашней погоде;

3. речь человека, говорящего на китайском языке;

4. сообщение для семиклассника – А.С.Попов в 1895 г. изобрёл радио;

5. текст вузовского учебника по высшей математике для первоклассника, если он попытается его прочитать? (Может ли первоклассник с этого учебника пополнить собственные знания?)

6. «1 сентября – день знаний» – сообщение для преподавателя.

1 – прогноз погоды на завтра – информативное сообщение,

2 – сообщение о вчерашней погоде неинформативно,

3 – неинформативное для человека, незнающего китайский язык.

4 – неинформативное,

5 – неинформативное, так как читая учебник, то есть, получая сообщения, первоклассник ничего не поймет, а, стало быть, не обратит его в собственные знания;

6 – неинформативное.