Значение ячейки СЗ данного листа электронной таблицы будет равно:

а) 14 б) 2 в) ИМЯ?

г) =А1В1 д) 0 е) 28

type oras = (chisinau, orhei, balti, tigina, tiraspol); zi = (l, ma, mi, j, v, s, d); consum = array [oras, zi] of real; var c : consum; r : oras; z : zi; i,k : integer; sum,min_r,max_r,min_z,max_z: real; n_max_r,n_min_r,n_max_z,n_min_z: integer; begin r: =chisinau; randomize; for i: =1 to 5 do begin z: =l; for k: =1 to 7 do begin c[r,z]: =random*100; z: =succ(z); end; r: =succ(r); end; r: =chisinau; for i: =1 to 5 do begin z: =l; case ord(r) of 0: writeln('chisinau'); 1: writeln('orhei'); 2: writeln('balti'); 3: writeln('tigina'); 4: writeln('tiraspol'); end; for k: =1 to 7 do begin write(c[r,z]: 6: 2); z: =succ(z); end; r: =succ(r); writeln; end; writeln('vsego za nedelu'); r: =chisinau; min_r: =99999; max_r: =0; n_min_r: =-1; n_max_r: =-1; for i: =1 to 5 do begin z: =l; case ord(r) of 0: write('chisinau sum='); 1: write('orhei sum='); 2: write('balti sum='); 3: write('tigina sum='); 4: write('tiraspol sum='); end; sum: =0; for k: =1 to 7 do begin sum: =sum+c[r,z]; z: =succ(z); end; if sum> max_r then begin max_r: =sum; n_max_r: =ord(r); end; if sum< min_r then begin min_r: =sum; n_min_r: =ord(r); end;

r: =succ(r);

writeln(sum: 8: 2); end; writeln('po dnyam nedeli'); z: =l; min_z: =99999; max_z: =0; n_min_z: =-1; n_max_z: =-1;

for k: =1 to 7 do begin r: =chisinau; case ord(z) of 0: write('l sum='); 1: write('ma sum='); 2: write('mi sum='); 3: write('j sum='); 4: write('v sum='); 5: write('s sum='); 6: write('d sum='); end; sum: =0; for i: =1 to 5 do begin sum: =sum+c[r,z]; r: =succ(r); end; if sum> max_z then begin max_z: =sum; n_max_z: =ord(z); end; if sum< min_z then begin min_z: =sum; n_min_z: =ord(z); end; z: =succ(z); writeln(sum: 8: 2); end; writeln('gorod c maximalnim potrebleniem'); r: =chisinau; for i: =1 to 5 do begin if ord(r)=n_max_r then case ord(r) of 0: writeln('chisinau'); 1: writeln('orhei'); 2: writeln('balti'); 3: writeln('tigina'); 4: writeln('tiraspol'); end; r: =succ(r); end; writeln('gorod c minimalnim potrebleniem'); r: =chisinau; for i: =1 to 5 do begin if ord(r)=n_min_r then case ord(r) of 0: writeln('chisinau'); 1: writeln('orhei'); 2: writeln('balti'); 3: writeln('tigina'); 4: writeln('tiraspol'); end; r: =succ(r); end;

writeln('den c maximalnim potrebleniem'); z: =l; for k: =1 to 7 do begin if ord(z)=n_max_z then case ord(z) of 0: writeln('l'); 1: writeln('ma'); 2: writeln('mi'); 3: writeln('j'); 4: writeln('v'); 5: writeln('s'); 6: writeln('d'); end; z: =succ(z); end; writeln('den c minimalnim potrebleniem'); z: =l; for k: =1 to 7 do begin if ord(z)=n_min_z then case ord(z) of 0: writeln('l'); 1: writeln('ma'); 2: writeln('mi'); 3: writeln('j'); 4: writeln('v'); 5: writeln('s'); 6: writeln('d'); end; z: =succ(z); end;

readln;

end.

9 кбатй = 73728 бит (кбайт=8192 бит)

73728/1536=48сек

512*48=24576бит=3072 байт ( 1 байт = 8 бит)

если хотим получить универсальное решение

1 сначала составляем таблицу или запись или как угодно назовите - набор связаных между собой данных определенных типов (зависит от языка программирования)

одна запись таблицы имеет

  first_row

  last_row

  ticket_cost

  sits_in_row

2 заполняем таблицу любым удобным нам способом

3 делаем нужные нам рассчеты

для каждой записи таблицы

  s: =s + (last_row - first_row + 1) * sits_in_row * ticket_cost

4 делаем вывод результата любым удобным нам способом

программу написала в паскале, надеюсь подходит))

program 1; var a: array[1..10] of integer; i,q,max,min,l,k: integer; begin randomize; for i: =1 to 10 do begin a[i]: =random(100); write(a[i]: 3); end; writeln; for i: =1 to 10 do if (a[i]> q) and (a[i]< l) then inc(k); writeln('k=',k); end.

2. 

program 2; var a: array[1..10] of integer; i,max,min,k,l: integer; begin  randomize; for i: =1 to 10 do begin a[i]: =random(100); write(a[i]: 3); end; writeln; max: =a[1]; min: =a[1]; for i: =2 to 10 do begin if a[i]> max then begin  max: =a[i];   k: =i;   end; if a[i]< min then begin  min: =a[i];   l: =i;   end; end; writeln('max=',max,', его индекс=',k,', min=',min,', его индекс=',l); end.