Question

Дан массив 8 действительных, найти сумму менее 8 и количеств не четных

Answer 1

uses crt;
const n=8;
var i,ans2:integer;
ans1:real;
a:array[1..n] of real;
begin
writeln('Введите 8 действительных чисел:');
for i:=1 to n do
begin
read(a[i]);
if a[i]<8 then
ans1:=ans1+a[i];
if (a[i]=trunc(a[i])) and (trunc(a[i]) mod 2<>0) then
ans2:=ans2+1;
end;
writeln('Сумма чисел, меньших 8: ',ans1);
writeln('Количество нечетных чисел: ',ans2);
end.