1. дан массив (nm). элементы массива ввести случайным способом. найти сумму элементов которые больше данного числа а. число а ввести с клавиатуры. 2. дан массив (nm). элементы массива ввести в программе. найти первый элемент, являющийся простым числом и его инедксы. 3. дан массив (n*m). элементы массива ввести с клавиатуры. найти количество четных элементов массива.

152

305

Посмотреть ответы 2

Ответы на вопрос:

Діана25123456789000

Информатика

4,5(27 оценок)

Const nx=20; mx=20; var i,j,n,s,a,m: integer; d: array[1..nx,1..nx] of integer; begin write('введите размер матрицы n и m'); readln(n,m); write('введите число а'); readln(a); for i: =1 to n do begin for j: =1 to m do begin d[i,j]: = random(100)-50; write(d[i,j]: 4); if d[i,j] > a then s: = s + d[i,j]; end; writeln; end; writeln; write('s=',s: 5); end.