Перепишите программу на паскале, исправив ошибки: program massiv; var a: array(-10..10) of integer; begin for i: =1 to 20 do read(a[i]); for i: =1 to 20 do a[i]: =a[i]/10; for i: =1 to 20 do write(a[i]) end.

program massiv;

var a: array[-10..10] of integer;

begin  for i: =1 to 20 do read(a[i]);   for i: =1 to 20 do a[i]: =round(a[i]/10);

 

          for i: =1 to 20 do write(a[i]);

end. 

 

 

и вообще можно написать так

program massiv;

var a: array[-10..10] of integer;

begin  for i: =1 to 20 do

      begin 

          read(a[i]);

          a[i]: =round(a[i]/10);  

            write(a[i]);  

 

        end;

end.

 

 

 

 

 

 

решение: разрешающая способность сканера 300  dpi (dot per inch  - точек на дюйм) означает, что на отрезке длиной 1 дюйм сканер способен различить 300точек.

переведем разрешающую способность сканера из точек на дюйм (1 дюйм = 2,54 см) в точки на сантиметр:

300dpi  : 2,54  ≈ 762 точек/см.

следовательно, размер изображения в точках составит

76200х76200 точек.

общее количество точек изображения равно:

76200  ·  76200 = 5 806 440 000.

информационный объем файла равен:

32 бита  ·  5  806  440  000  = 1 185 806 080 000  бит  ≈  22 681 406  кб ≈  22 150мб ≈ 21 гб

1) var a: array[1..10] of real; i: integer; begin randomize; for i: =1 to 10 do begin a[i]: =  random(200) -100; write(a[i]: 5); end; writeln; for i: =1 to 10 do  if a[i]> =0 then a[i]: =a[i]/2 else a[i]: =i; write(a[i]: 5); end. 2) var a: array[1..1000] of real; s1,s2: real; i,n: integer; begin write('введите кол-во элементов:   ');   readln(n); writeln('введите элементы массивы:   ');   for i: =1 to n do read(a[i]); s1: =0; s2: =0; for i: =1 to n do if odd(i) then s1: =s1+a[i] else s2: =s2+a[i]; writeln('сумма элементов с четными номерами:   ',s2); writeln('сумма элементов с нечетными номерами: ',s1); end.