Опубликовано 22.08.2017 по предмету Информатика от Гость >> <<

Помогите написать программу в паскале, буду благодарна! С клавиатуры введите одномерный массив округлить ( round) и вывести все числа, произведение всех элементов по модулю (abs)

Ответ оставил Гость

Const N=...;
var a:array[1..N] of integer;
      i: integer;
      c: real;
begin
for i:=1 to N do begin
 read(c);
 a[i]:=round(c);
end;
c:=1;
for i:=1 to N do begin
 write(a[i], );
 c:=c*a[i];
end;
write(произведение элементов по модулю равно,abs(c));
end.