• ПРОВЕРЬТЕ, ПОЖАЛУЙСТА! МАССИВЫ, ПАСКАЛЬ.
    УСЛОВИЕ: Задать случайным образом 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.

Ответы 2

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

      hunt
    • 6 лет назад
    • 0
  • Добавить свой ответ

Еще вопросы

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years