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

1
я ся жди 1 мин или 2
1. Дан массив целых чисел (n=15), заполненный случайным образом числами из промежутка [—20,50]. Найти сумму элементов массива.

2. Дан массив целых чисел (n=15), заполненный случайным образом числами из промежутка [—20,50] Заменить элемент, кратный 5, нулем. Найти сумму элементов массивы
3. Дан массив целых чисел, состоящий из 20 элементов, заполненный случайным образом. Найти сумму нечетных элементов массива.

4. Дан массив целых чисел (n=15), заполненный случайным образом числами из проме

Ответы и объяснения

2014-01-18T00:59:43+04:00
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.