Задача паскаль

[pomni]

Не работал в паскале 2 года,всё вылетело из головы
задача не сложная,кому не трудно помогите....


////Даны массивы A(N) и B(N). Образовать новый массив C(N) путём попарного умножения элементов массивов A и B. В массиве C(N) определить число нулевых элементов.

[ZX Spectrum-128]

K:=0;
For i:=1 to n do
 Begin
  C[i]:=a[i]*b[i];
  If c[i]=0 then inc(k);
 End;

[pomni]

Сообщение от ZX Spectrum-128

K:=0;
For i:=1 to n do
 Begin
  C[i]:=a[i]*b[i];
  If c[i]=0 then inc(k);
 End;

Спасибо.
Ожидалось описание begin....
Что обозначить в строке var?

[Stilet]

Ожидалось описание begin....

Ну так вставь этот скетч в нужное место программы )

Что обозначить в строке var?

переменные k i n и массивы a в и с

[pomni]

Сообщение от Stilet

Ну так вставь этот скетч в нужное место программы )

переменные k i n и массивы a в и с

я же говорю забыл все напрочь

тут ещё где-то строки writeln должны быть

const n=10;
var
A, B, C: array[1..n] of Integer;
i, k: Integer;
Begin
K:=0;
For i:=1 to n do
Begin
C[i]:=a[i]*b[i];
If c[i]=0 then inc(k);
End;
for i:=1 to n do
end.

[Stilet]

for i:=1 to n do writeln(a[i]:10,b[i]:10,C[i]:10); readln;

Этого хватит чтоб вывести данные.
Кстати:

For i:=1 to n do
Begin
Readln(a[i]); Readln(b[i]);
C[i]:=a[i]*b[i];

Это чтоб ввести. Или

For i:=1 to n do
Begin
a[i]:=random(100);b[i]:=random(100);
C[i]:=a[i]*b[i];

Если руками вводить не хочется.

[pomni]

ага
везде нули пишет
нужно где-то добавить ввод данных вручную

const n=10;
var
A, B, C: array[1..n] of Integer;
i, k: Integer;
Begin
K:=0;
for i:=1 to n do
writeln(a[i]:10,b[i]:10,C[i]:10);
readln;
Begin
C[i]:=a[i]*b[i];
If c[i]=0 then inc(k);
End;
for i:=1 to n do writeln(a[i]:10,b[i]:10,C[i]:10); readln;
end.

[Stilet]

Ну вот я же пример ввода дал - добавляй )

[pomni]

Сообщение от Stilet

Ну вот я же пример ввода дал - добавляй )

const n=2;

var
A, B, C: array[1..2] of Integer;
i, k: Integer;
Begin

K:=0;
for i:=1 to n do

Begin
Readln(a[i]); Readln(b[i]);
C[i]:=a[i]*b[i];
If c[i]=0 then inc(k);
End;

for i:=1 to n do
writeln(a[i]:n,b[i]:n,C[i]:n); 
readln;
end.

Выдает новый массив С,а где он определяет число нулевых компонентов (по заданию)
может я это не вывожу?)

[Mad_Cat]

а где он определяет число нулевых компонентов

If c[i]=0 then inc(k);