Консультация № 189591
17.06.2016, 13:16
0.00 руб.
0 1 1
Уважаемые эксперты! Пожалуйста, ответьте на вопрос:

написать программу Паскаль : С оставить программу, которая формирует одномерный массив из 10 целых случайных чисел. Найдите произведение всех элементов массив и выведите на экран индекс минимального элемента массива.

Обсуждение

давно
Старший Модератор
31795
6196
17.06.2016, 14:10
общий
это ответ
Здравствуйте, amelya.kuro!

Смотрите код:
[code lang=pascal h=200]var
a:array[1..10]of integer;
b:longint;
c:integer;
begin
randomize;
{произведение массива}
b:=1;
for c:=1 to 10 do
begin
a[c]:=random(10)+1;
write(a[c]:3);
b:=b*a[c];
end;
writeln;
writeln('mult:',b);
{минимальный элемент}
b:=1;
for c:=2 to 10 do
if a[b]>a[c] then b:=c;
writeln('min a[',b,']:=',a[b]);
end.[/code]
Удачи!
Об авторе:
Мне безразлично, что Вы думаете о обо мне, но я рад за Вас - Вы начали думать.

Форма ответа