Question

ПРОВЕРЬТЕ, ПОЖАЛУЙСТА! МАССИВЫ, ПАСКАЛЬ.
УСЛОВИЕ: Задать случайным образом 10 элементов массива: целые числа из интервала от -5 до 50. Найти:
1) сумму нечётных элементов;
___________________________________________
Program Massivsumma;
var
a : array[-5..50] of integer;
n : integer;
summa : integer;
begin
randomize;
Write ('n='); Readln (n);
summa:=0;
for n:= 1 to 10 do
begin
write ('введите число'); readln (a[n]);
if a[n] mod 1 = 0 then summa:=summa+(a[n]);
writeln('сумма элементов с нечетными номерами: ',summa);
end;
end.

Answer 1

что-то у тебя вообще неправильно написано).держи мой вариант

33afa1cc5bd118e1061f3ba0ee257645.pas

Answer 2

СПАСИБО ПРОСТО ОГРОМНОЕ
НЕ ПРЕДСТАВЛЯЕШЬ, НАСКОЛЬКО ОГРОМНОЕ
Помогите еще с вот этим, пожалуйста http://znanija.com/task/9577444

Answer 3

А зачем -5 начало массива? И не мод 1, а мод 2

33afa1cc5bd118e1061f3ba0ee257645.pas