Впрямоугольной матрице найти количество чётных элементов

242

392

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

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

milarudneva449

Информатика

4,6(85 оценок)

Program pr; uses crt; var mas: array[1..1000, 1..1000] of integer; n,m,i,j,k: integer; begin writeln('введите размер матрицы n*m'); write('n = '); readln(n); write('m = '); readln(m); if (m> 1000) or (n> 1000) or (m< 1) or (n< 1) then writeln('ошибка, указанные значения выходят за пределы матрицы') else begin writeln('введите элементы матрицы'); k: =0; for i: =1 to n do for j: =1 to m do begin readln(mas[i,j]); if (mas[i,j] mod 2 = 0) then k: =k+1; end; writeln(); writeln('исходная матрица'); for i: =1 to n do begin for j: =1 to m do begin write(mas[i,j], ' ') end; writeln(); end; writeln(); writeln('количество четных элементов = ',k); end; readln; end.

Алька0511

Информатика

4,7(6 оценок)

Файл компьютердің бір дерек жинағын екіншісінен айыруына мүмкіндік береді. Мәтін жазылған немесе суреті бар кез келген қағаз құжат сияқты, файл дерек жинағы болып табылады, ондағы деректі бөліп алуға, өзгертуге, жоюға, сақтауға я болмаса басып шығарғыш немесе электрондық пошта бағдарламасы сияқты шығару құрылғысына жіберуге болады. Файлдардың ішінде бағдарлама, бағдарламада қолданылатын деректер немесе пайдаланушы жасаған құжат болуы мүмкін.