:дан массив из 10 целых чисел, от -20 до 20 . напишите программу, заменяющую первый отрицательный элемент массива нулем. решить!

Program z10; var  a,b: array [1..10] of integer; i,q: integer; begin randomize; q: =0; for i: =1 to 10 do begin a[i]: =random(40)-20; write(a[i],' '); if(a[i]< 0)then begin q: =q+1; if(q=1)then a[i]: =0; end; end; writeln; for i: =1 to 10 do begin write(a[i],' '); end; end.

Var  a: array  [1..10]  of  integer;           i,n,b: integer; begin     for  i: =1  to  10  do       read(a[i]);     for  i: =1  to  10  do     begin         if b=0  then  if  a[i]< 0  then                begin                   a[i]: =0;                   b: =1;               end;     end;     for  i: =1  to  10  do     write(a[i],' '); end.

Иды информационных процессов
среди всех информационных процессов можно выделить наиболее общие.

к ним относятся:

- получение,

- передача,

- хранение

- обработка информации.

эти процессы являются базовыми.

их выполнение порождает другие информационные процессы.

так, например,

- получение информации может быть связано с её поиском, хранение — с накоплением;

- при передаче информации необходимо позаботиться о её защите от разрущающих воздействий.
все процессы требуют той или иной формы представления информации, определяет которую процесс — кодирование. он сопровождает все остальные процессы и является связующим звеном между ними.
информационные процессы не изолированы, а протекают циклично в единстве и взаимосвязи друг с другом.

Var   i,s: integer; begin   write('s=2');   i: =2;   s: =i;   while i< 20 do begin       i: =i+2;       write('+',i);       s: =s+i       end;   writeln('=',s) end. результат s=2+4+6+8+10+12+14+16+18+20=110 var   i,s: integer; begin   write('s=1');   i: =1;   s: =i;   while i< 20 do begin       i: =i+1;       write('+',i);       s: =s+i       end;   writeln('=',s) end. результат s=1+2+3+4+5+6+7+8+9+10+11+12+13+14+15+16+17+18+19+20=210