Program dfgd;
var
n: real;
i: integer;
begin
n := 1;
for i := 1 to 30 do
if (i mod 3 = 0)
then n := n * i;
writeln('Произведение чисел, кратных 3 = ', n);
end.
Смотря что Вы называете "суммой". Строки обычно не суммируются а соединяются с помощью операции конкатенации (слияния) строк.
Это можно сделать посредством обычой операции "плюс" (+), или с помощью встроенной функции Concat, аргументами которой являются исходные строки.
Создание многоуровневых списков
Во многих видах документов встречаются более сложные типы списков. Это так называемые многоуровневые списки. В них также используется либо маркировка, либо нумерация, а иногда и сочетание того и другого. Но главное их отличие от предыдущих типов списков – наличие нескольких уровней. В зависимости от уровня для каждого абзаца устанавливается символ или номер.
Многоуровневые списки отличаются от обычных наличием отступов. Определенный отступ принимается за уровень такого списка.
Создание многоуровневого списка возможно только с помощью окна диалога Список. Причем уровни задает сам исполнитель, устанавливая определенные отступы. Word анализирует отступы и, в зависимости от их величины, нумерует, создавая уровни.
Можно создавать измененные форматы нумерации для различных уровней многоуровневого списка, однако в одном документе допустим только один формат многоуровневого списка.
Для создания многоуровневого списка необходимо выполнить следующие действия:
1. Определить фрагмент документа, который предполагается оформить в виде списка.
2. Создать отступы каждого абзаца, воспользовавшись кнопкой Увеличить отступ на панели инструментов Форматирование (при создании отступов нельзя использовать табуляцию) .
3. Выделить выбранный фрагмент текста.
4. Выбрать команду Формат – Список. В окне диалога Список перейти на вкладку Многоуровневый.
<span>5. Выбрать нужный тип многоуровневого списка из предложенных вариантов. Нажать ОК.
</span>
1)
var
a:array[1..16] of integer;
i,k,s:integer;
begin
randomize;
For i:= 1 to 16 do
begin
a[i]:= -30+random(61);
write(a[i], ' ');
end;
For i:= 1 to 16 do
if a[i] < 0 then k:= k+1;
Writeln;
Writeln(k);
end.
Пример:
-21 4 -11 30 -16 -7 26 -14 -20 10 -18 8 -26 -13 -20 -15
11
2)
Изменить условие "if a[i] < 0 then k:= k+1;" на "if a[i] > 0 then s:= s +a[i];"
и "writeln(k);" на "Writeln(s);"