Задать вопрос Регистрация
Помочь другим

  • ЛЮДИ, ПОМОГИТЕ, ПОЖАЛУЙСТА 

    НАПИСАТЬ ПРОГРАММУ

    Найти и вывести на экран сумму нечётных элементов массива и количество отрицательных.

    Паскаль 

Ответы 1

  • (Высчитывает сумму нечетных элементров массива) 

    program chisla;uses crt;var a: array [1..10] of integer;    {сколько элементов вмассиве} i,sum: integer;begin clrscr; sum:=0; for i:=1 to 10 do begin write('a[',i,']= '); readln(a[i]); if a[i] mod 2<>0 then sum:= sum+a[i]; end; write('sum= ',sum); readln;end.

  • Добавить свой ответ

Еще вопросы

Топ пользователей

Войти через Google

 или

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

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

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