• помоги пожалуйста написать программу на языке Паскаля

    Дан одномерный массив целых чисел, состоящий из 22 элементов, посчитать количество отрицательных элементов массива, а также количество элементов которые делятся на 9.

    СПАСИБО

Ответы 3

  • Готов принять любые шишки.
    • Автор:

      amielee
    • 6 лет назад
    • 0
  • vara:array[1..100] of integer; s,s1,i:integer;beginfor i:=1 to 22 do begina[i]:=random(10)-10; if a[i]<0 then begins:=s+1;end;if a[i] mod 9=0 thenbegins1:=s1+1;end;end;writeln(s,s1);end.
    • Автор:

      phoebe
    • 6 лет назад
    • 0
  • var i,k1,k2:integer;begin;var ar:=ArrRandomInteger(23,-50,50);for i:=1 to 22 dobegin;write(ar[i]:4);if ar[i]<0 then inc(k1);if ar[i] mod 9=0 then inc(k2); end;writeln;writeln('Отрицательные:',k1);write('Делятся на 9:',k2);end.//Неинтересный вариантvar i,k1,k2:integer;ar:array[1..22] of integer;begin;for i:=1 to 22 dobegin;ar[i]:=random(100)-50;write(ar[i]:4);if ar[i]<0 then inc(k1);if ar[i] mod 9=0 then inc(k2);end;writeln;writeln('Отрицательные:',k1);write('Делятся на 9:',k2);end.
    • Автор:

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

Войти через Google

или

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

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

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