Две лёгкие задачи *badpokerface*

[Gal El]

1)Найти количество элементов не равных 0 в последовательности из 10 чисел. Результат вывести на экран.

2)Ввести матрицу 3х3. Найти сумму и произведение элементов главной
диагонали, с применением циклов.

Заранее благодарен.

[Vanta11a]

1)

if item<>0 then inc (count);

2)

for i:=1 to n do
begin
pr := pr*matrix[i,i];
summ := summ + matrix[i,i];
end;

[Gal El]

ну нуу нууу, а поточнее?