Использовать ссылки на абсолютные адреса ячеек. на складе компьютерной техники хранятся компьютеры по цене 100 монет, принтеры по цене 55 монет, сканеры по цене 78 монет. мальвина, буратино, пьеро и лиса алиса имеют магазины по продаже компьютерной техники. мальвина про-дала 10 сканеров и 5 компьютеров. буратино — 11 принтеров, 3 компьютера и 2 сканера. пьеро — 7 компьютеров и 4 принтера. лиса алиса — 8 компьютеров, 1 сканер и 6 принтеров. построить электронную таблицу, из которой будет видно: 1. сколько всего было продано каждого вида техники и на какую сумму; 2. на какую сумму продано техники каждым владельцем магазина; 3. сколько единиц техники было продано каждым владельцем магазина.

Без проверки того, есть ли символ в строке:   var     s: string;     c: char;     i: integer; begin write('введите строку: '); readln(s); write('введите символ: '); readln(c); write('символ "',c,'" встречается на позициях: '); for i: = 1 to length(s) do       if s[i] = c then write(' ',i) end. пример работы программы: введите строку: 12345789654621685798546323312125 введите символ: 5 символ "5" встречается на позициях: 5 10 17 21 32 с проверкой: var     s: string;     c: char;     i: integer; begin write('введите строку: '); readln(s); write('введите символ: '); readln(c); i: =1; while (s[i] < > c)and(i< length(s)) do     i: =i+1; if s[i] = c then     begin     write('символ "',c,'" встречается на позициях: ');     for i: = i to length(s) do             if s[i] = c then write(' ',i)     end else     writeln('данный символ в строке не встречается') end. пример работы программы: введите строку: 12312123 введите символ: 4 данный символ в строке не встречается

Const n=25;   var a,b: array[1..n] of integer; i,j,t: integer;   begin randomize; writeln('результаты: '); for i: =1 to n do   begin   a[i]: =random(31)+10;   write(a[i]: 3);   end; writeln; for i: =1 to n do b[i]: =i; for i: =1 to n-1 do   for j: =1 to n-i do     if a[b[j]]> a[b[j+1]] then     begin      t: =b[j]; b[j]: =b[j+1]; b[j+1]: =t;     end; writeln('победитель: '); writeln('min = ',a[b[1]],' его номер = ',b[1]); j: =1; while b[j]< > 4 do j: =j+1; writeln('результат российского лыжника: ', j,' место'); end. пример: результаты:   38 19 22 11 16 40 22 18 21 16 15 33 38 34 39 21 19 10 25 15 40 13 34 27 37 победитель: min = 10 его номер = 18 результат российского лыжника: 2 место ps. места, которые заняли спортсмены с одинаковыми результатами, в программе будут различны.