25.10.2019, 06:08
общий
это ответ
Здравствуйте, rail!
Условие задачи(элементы массива от 0 до 10) довольно глупое но раз надо...
[code lang=pascal]var a:array[1..100] of integer;
n,i,mx:integer;
p:real;
begin
repeat
write('Введите размер массива от 10 до 100 n=');
readln(n);
until n in [1..100];
randomize;
writeln('Массив');
for i:=1 to n do
begin
a[i]:=random(11);
write(a[i]:4);
end;
writeln;
mx:=a[1];
p:=1;
for i:=1 to n do
begin
if a[i]>mx then mx:=a[i];
if odd(i)then p:=p*a[i];
end;
writeln('Произведение элементов с нечетными номерами=',p:0:0);
writeln('Максимальный элемент=',mx)
end.[/code]