Задать вопрос
25 марта, 01:42

Дан массив из n чисел. Найти полупроизведение элементов массива

+3
Ответы (1)
  1. 25 марта, 05:40
    0
    Program n1;

    const n=10;

    var a: array[1 ... n] of integer;

    i: integer;

    p: real;

    begin

    randomize;

    writeln ('исходный массив:') ;

    p:=1;

    for i:=1 to n do

    begin

    a[i]:=random (15) + 1;

    write (a[i],' ') ;

    p:=p*a[i];

    end;

    writeln;

    writeln ('полупроизведение: ', p/2) ;

    end.
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «Дан массив из n чисел. Найти полупроизведение элементов массива ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы