Найти произведение элементов массива, имеющих нечетные индексы и выбрать из них минимальный (программа: тема массив)
Ответы
Ответ дал:
1
var
a: array [1..100] of integer;
n, c: integer;
p: real;
begin
randomize;
write('n? ');
readln(n);
write('array:');
for c := 1 to n do begin
a[c] := random(9) + 1;
write(' ', a[c]);
end;
writeln;
c := 1;
p := 1;
while c <= n do begin
p := p * a[c];
inc(c, 2);
end;
writeln('result: ', p:0:0);
end.
a: array [1..100] of integer;
n, c: integer;
p: real;
begin
randomize;
write('n? ');
readln(n);
write('array:');
for c := 1 to n do begin
a[c] := random(9) + 1;
write(' ', a[c]);
end;
writeln;
c := 1;
p := 1;
while c <= n do begin
p := p * a[c];
inc(c, 2);
end;
writeln('result: ', p:0:0);
end.
Вас заинтересует
4 месяца назад
4 месяца назад
11 месяцев назад
11 месяцев назад
2 года назад
2 года назад
7 лет назад