надо!!!

Дополни предложение, вписывая (копируя) недостающие слова.
(Презентация, Видеомагнитофон и проектор, слайдов, Слайд, титульного слайда, Пуск/Все программы/Microsoft Office/ Microsoft Office PowerPoint 2003, Создать, Макеты, Вставка/Рисунок/Картинки, Вставка/Рисунок/Из файла)

— это иллюстрированное изложение темы. Обычно, новую презентацию начинаю с .

Я от сколько у меня есть!!!

Если я буду очень благодарна!!!

const m=10; n=12; var a: array [1..m,1..n] of integer; i,j: integer; sob: integer; sst: array[1..n]of integer; sstr: array[1..m]of integer; beginrandomize; for i: =1 to m do beginfor j: =1 to n do begina[i,j]: =random(10); write(a[i,j]: 3); end; writeln; end; sob: =0; for i: =1 to m do beginfor j: =1 to n do beginsob: =sob+a[i,j]; end; end; writeln('сумма всех элементов массива = ', sob); writeln; writeln; for i: =1 to m do beginsstr[i]: =0; for j: =1 to n do beginsstr[i]: =sstr[i]+a[i,j]; end; end; writeln('сумма элементов построчно'); for i: =1 to m do write(sstr[i]: 3); writeln; writeln; for j: =1 to n do beginsst[j]: =0; for i: =1 to m do beginsst[j]: =sst[j]+a[i,j]; end; end; writeln('сумма элементов по столбцам'); for j: =1 to n do write(sst[j]: 3); end.

s : = 1 ;

for i : = 1 to n do

  if a[i] mod 3 = 0 then

          s : = s * a[i];

writeln(s);

иванов парикмахер, петров плотник, сидоров мельник, гришин почтальон, алексеев маляр.  и 2413      маляр 1

п   142     мельник 2

с   13     плотник 3

г 12      почта 4

а       парикмахер 5

var x,s,n: integer;

begin

  repeat

        read(x);

        if x< 0 then n: = n +1;

        if x > 0 then s: =s+x;

  until x=0;

  writeln(n,s);

end.