• помогите, решить на паскале!!
    Дан массив X(T). Вычислить сумму положительных элементов массива с номе-рами меньшими 7, значение которых больших 15 (T>=7).
    1. Проверить работу программы для данных:
    1 2 3 4 5 6 7 8 9
    Х -15 2 17 4 23 4 -30 24 -1

Ответы 2

  • const N:=10;var x[1..N]: array of integer;t,sum:integer;beginsum:=0;writeln("Введите ", N, " чисел.");for t:=1 to N do beginreadln(x[t]);if (t<7) and (x[t]>15) thensum:=sum+1;end;writeln(sum);end.
    • Автор:

      tobynflw
    • 6 лет назад
    • 0
  • const N:=10; var x[1..N]: array of integer; t,sum:integer; begin sum:=0; writeln("Введите ", N, " чисел."); for t:=1 to N do begin readln(x[t]); if (t<7) and (x[t]>15) then sum:=sum+1; end; writeln(sum); end.
  • Добавить свой ответ

Еще вопросы

Войти через Google

или

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

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

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