Program z1;
var A:array[1..30] of integer;
i,k:integer;
begin
k:=1;
for i:=1 to 30 do begin
write('a[',i,']=');
read(a[i]);
end;
for i:=1 to 30 do
if a[i] mod 2=0 then
k:=a[i]*k;
writeln(k);
end.
For i = 1 To 9
For j = 1 To 9
s$=String(i*j)
if length(s$)=1 then s$=" "+s$ else if length(s$)=2 then s$=" "+s$
Print s$;
Next j
Print
Next i
End
Результат работы программы:
1 2 3 4 5 6 7 8 9
2 4 6 8 10 12 14 16 18
3 6 9 12 15 18 21 24 27
4 8 12 16 20 24 28 32 36
5 10 15 20 25 30 35 40 45
6 12 18 24 30 36 42 48 54
7 14 21 28 35 42 49 56 63
8 16 24 32 40 48 56 64 72
9 18 27 36 45 54 63 72 81
Замечание: таблица на самом деле ровная, это тут ширина пробела и ширина цифры различна, поэтому сдвиг.