К=8, потому, что каждое следующее число делится на 2.
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.
1)
a нет
b нет
c нет
2)
1<span>строковый тип</span>
<span>2<span>целый тип (INTEGER) </span></span>
<span><span>3<span>вещественный тип</span></span></span>
<span><span><span>3)</span></span></span>
<span><span><span>1- 30 -46</span></span></span>
<span><span><span>2- 30 -46 -0.126 15.003</span></span></span>
<span><span><span>3- 'g'</span></span></span>
<span><span><span>4- <span>‘солнце’ '55' 'g'</span></span></span></span>
<span><span><span>5- 30 -46</span></span></span>
для 3го ложное!у него кол-во букв четное и первая согласная