var
a: array [1..10] of integer;
i, max: integer;
begin
max:= 0;
write('Исходный массив: ');
for i:= 1 to 10 do
begin
a[i]:= random(10);
write(a[i], ' ');
if (i mod 2 = 0) and (a[i] > max) then
max:= a[i];
end;
writeln;
writeln('Максимальный элемент массива среди элементов с четными индексами: ', max);
end.
Если что не понятно - спрашивай.
А ЭТО ДОЛЖНО ВЫГЛЯДИТЬ КАК ЧЕРТЁЖ?
вот так ?
Использовать режим инкогнито во время работы в браузере
<em>VAR</em>
<em> n, ans: Integer;</em>
<em>BEGIN</em>
<em> Read(n);</em>
<em />
<em> ans := n mod 10; n := n div 10;</em>
<em> ans := ans * (n mod 10); n := n div 10;</em>
<em> ans := ans * (n mod 10); n := n div 10; </em>
<em> ans := ans * (n mod 10); </em>
<em />
<em> Write(ans);</em>
<em>END.</em>