Найти сумму и количество элементов в каждом столбце матрицы, являющихся простыми числами. если можно, то с объяснениями, . заранее !

130

418

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

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

nadezdamanuh

Информатика

4,8(40 оценок)

Var a: array [1..250, 1..250] of integer; // матрица с числами.n, m, i, j: integer; function prime(a: integer): boolean; //проверка на простоту.vari: integer; f: boolean; begin for i : = 2 to trunc(sqrt(a)) do if (a mod i = 0) then begin f : = true; break; end; prime : = f; end; beginreadln(n, m); // ввод размера матрицы.for i : = 1 to n dobeginfor j : = 1 to m doread(a[i][j]); readln; end; for i : = 1 to m do for j : = 1 to n do if (not prime(a[j][i])) then begin inc(a[n + 1][i]); inc(a[n + 2][i], a[j][i]); end; for i : = 1 to m do writeln(a[n + 1][i],' ',a[n + 2][i]); // вывод суммы и кол - ваreadln; end.