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

Var a: array[1..12,1..20] of real;   i,j,n: integer;   s: real; begin // заполним массив случайными значениями для теста for i: =1 to 12 do   for j: =1 to 20 do       a[i,j]: =random*20000;       writeln('номер сотрудника '); readln(n); for i: =1 to 12 do   s: =s+a[i,n]; writeln('зарплата за год ',s); end.

как-то

program g; vara, b : integer; n : integer; s : integer; z: array[0..16] of integer; i : integer; v: integer; begina: =(-20); b: =20 ; n: =16 ; for i : = 1 to n dobegins : = trunc(random(b-a)+a); writeln (i: 2,'-е случайное число: ',s: 4); end; beginwriteln('индексы элементов кратных 3: '); for v: =0 to 16 do begin z[v]: =random(40)-20; if z[v] mod 3 = 0 then write(v, ' ') end; end; end. 

в одном часе 3600 секунд. за час произойдёт 3600*10^6 операций.

чтобы выполнить их на арифмометре (не завидую тому, кто решится так делать), потребуется

3600*10^6*10 секунд = 10^7 часов или примерно 1141 год