Консультация № 196793
24.10.2019, 21:11
0.00 руб.
0 1 1
Здравствуйте, уважаемые эксперты! Прошу вас ответить на следующий вопрос:

Массив из чисел 0-10. Найдите произведение элементов массива с нечетными номерами и найдите наибольший элемент массива.
Pascal

Приложение:
Pascal

Обсуждение

давно
Профессор
401888
1232
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]
Форма ответа