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

Question

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

Comments

я ся жди 1 мин или 2

---

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

---

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

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<br>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.