Var
a: array[1..10] of integer;
s, i: integer;
begin
for i:=1 to 10 do
begin
a[i]:= random(50)+1;
if (a[i] mod 2 = 0) and (i mod 2 = 0) then
s:=s+a[i];
writeln(a[i])
end;
writeln('Сумма: ', s)
<span>end.</span>
В C++ такая запись (b=2;) как раз и является операцией присваивания, но никак не может объявлять константу.
Что в паскале, что в C++ константа объявляется через const
Метод-координат.
вот твой вопрос???
............