Решить . дан массив. найти количество элементов массива - вопрос №3233838 от Viktyfox17 03.10.2021 14:56

Question

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

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