Turbo Pascal

[Demenz]

Пожалуйсто помогите с решением задач на Паскале заранее благодарен !!
1.Дано целое число N и набор из N вещественных чисел.
Вывести сумму и произведение чисел из данного набора.
2.Дано целое число N и набор из N положительных вещественных чисел.
Вывести в том же порядке целые части всех чисел из данного набора (как вещественные числа с нулевой дробной частью), а также сумму всех целых частей.

[Grag]

Для решения второй задачи используй функцию Int(R:real):real. Она возвращает целую часть аргумента.

[Stilet]

Дано целое число N и набор из N вещественных чисел.

const n=5;
var a:array[1..n] of double;

Вывести сумму и произведение чисел из данного набора.

 var Sum,pro:Double;
 ...
 pro:=1;
 for i:=1 to n do begin
   a[i]:=random(100)/100;
   Sum:=Sum+a[i]; 
   pro:=pro*a[i];
   Write (a[i]:5:2);
 end;
 writeln;
 Writeln('Сумма=',sum:5:2,'  Произв=',pro:5:2);

целые части всех чисел из данного набора

 
...
sum:=0;
for i:=1 to n do begin
   sum:=sum+trunc(a[i]);
   Write (trunc(a[i]):5);
 end;
 writeln;writeln('Сумма целых честей=',sum);
...
Readln;

Вот так как то...

[Grag]

Сообщение от Stilet

 
...
sum:=0;
for i:=1 to n do begin
   sum:=sum+trunc(a[i]);
   Write (trunc(a[i]):5);
 end;
 writeln;writeln('Сумма целых честей=',sum);
...
Readln;

Вот так как то...

Прошу прощения, но все же не так...

Тс пишет в задании

целые части всех чисел из данного набора (как вещественные числа с нулевой дробной частью),

А тип LongInt - это все же целочисленный тип данных и Trunc здесь не подходит... А вот функция Int возвращает значение именно как вещественное... Хотя, в принципе, Sum имеет тип Double... Так что это все на усмотрение ТС.