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

124

292

Посмотреть ответы 2

Ответы на вопрос:

troft

Информатика

4,4(13 оценок)

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.