• Помогите решить задачу.
    Дан массив. Найти количество элементов массива равных первому элементу.

Ответы 6

  • Ты "гений" информатики просто напиши и проверь если не правильно я исправлю.
  • Program xxx;Var a:array [1..100] of integer;s,i:integer;BeginReadln (n);for i:= 1 to n do read ln (n);S:=0;
    • Автор:

      abelbrown
    • 6 лет назад
    • 0
  • Вот так должна начинаться задача
  • это чисто к примеру
  • а у тебя const у меня школьная программа, а не высшка
  • const n= 10; m= 10; type Tmatr= array[1..n,1..m] of byte; var A: Tmatr; e,i,j: byte; begin Randomize; for i:=1 to n do for j:=1 to m do A[i,j]:= Random(10); e:=0; for i:=1 to n do for j:=1 to m do if (j mod 2)<>0 then if A[i,j] = A[1,1] then Inc(e); Writeln(e); Readln; end.
    • Автор:

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

Войти через Google

или

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

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

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