• 1)Составить массив из 10 целых чисел ,вывести его на экран и подсчитать количество элементов массива ,значения которых не превышают трех
    2) Составить массив из 10 целых чисел и вывести его на экран ,подсчитать сумму отрицательных и положительных чисел в массиве .

Ответы 5

  • program HelloWorld;varmas : array [1..10] of integer;count, i : integer;begincount:=0;for i:=1 to 10 dobegin read(mas[i]); if mas[i]<4 then count:=count+1; writeln('a[',i,'] = ',mas[i]);end;write('Количество элементов, не превышающих 3 - ',count);end.
    • Автор:

      maraayers
    • 5 лет назад
    • 0
  • ---------------------------
  • Вторая задача
  • --------------------------------
    • Автор:

      anaya
    • 5 лет назад
    • 0
  • program HelloWorld;varmas : array [1..10] of integer;sumNeg, sumPos, i : integer;beginsumNeg:=0;sumPos:=0;for i:=1 to 10 dobegin read(mas[i]); if mas[i]<0 then sumNeg:=sumNeg+mas[i] else sumPos:=sumPos+mas[i]; writeln('a[',i,'] = ',mas[i]);end;writeln('Сумма отрицательных - ',sumNeg);writeln('Сумма положительных - ',sumPos);end.
  • Добавить свой ответ

Еще вопросы

Войти через Google

или

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

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

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