• "массив в состоит из 15 элементов заполненными от 0 до 50 радномно, вычислите количество четных элементов"
    Напишите программу Паскаля

Ответы 4

  • спасибо большое <3
  • Это положительные элементы
    • Автор:

      otis
    • 6 лет назад
    • 0
  • var a: array [1..15] of integer;    i,n:integer;beginfor i:=1 to 15 do begin      a[i]:=random(50);      if (a[i] mod 2)=0 then            n:=n+1;end;writeln(a);writeln;writeln(n);end.
    • Автор:

      hanna
    • 6 лет назад
    • 0
  • Uses crt;Var a:array [1..15] of integer;i,k:integer;beginfor i:=1 to 15 dobegina[i]:=random(50)-20;write (a[i]:4);k:=0;end;writeln;for i:=1 to 15 doif a[i]>0 thenbegink:=k+1;end;writeln ('колво элементов',k);end.
  • Добавить свой ответ

Еще вопросы

Войти через Google

или

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

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

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