Решить . дан массив. найти количество элементов массива - вопрос №3233670 от ivanrumyantsev1 31.01.2020 02:33

Question

Информатика: Решить . дан массив. найти количество элементов массива равных первому элементу.

ivanrumyantsev1 · Answer

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....