Найти сумму и количество элементов в каждом столбце матрицы, являющихся простыми числами.
10-11 класс
|
Если можно, то с объяснениями, пожалуйста. Заранее благодарна!
const
m=5; //число строк
n=10; //число столбцов
var
i,j:integer;
s,k:array[1..n]of integer; //s для суммы, k для количества простых чисел
a:array[1..m,1..n]of integer;
function prost(x:integer):boolean; //функция определения простого числа
var i:integer;
begin
result:=true;
for i:=2 to (x div 2) do
if (x mod i=0) and (i<>x) then result:=false;
end;
begin
//заполнение случайными числами и вывод массива
for i:=1 to m do
begin
for j:=1 to n do
begin
a[i,j]:=random(20)+1;
write(a[i,j]:5);
end;
writeln;
end;
//Просмотр по столбцам и подсчет s и k
for j:=1 to n do
begin
for i:=1 to m do
if prost(a[i,j]) then
begin
s[j]:=s[j]+a[i,j];
k[j]:=k[j]+1;
end;
end;
writeln('Количество простых чисел по столбцам:' );
for i:=1 to n do write(k[i]:5);
writeln;
writeln('Сумма простых чисел по столбцам:' );
for i:=1 to n do write(s[i]:5);
end.
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.
На каком языке писать?
Данные(размер матрицы и значения элементов)задаются с клавитуры/из файла читаются?
Другие вопросы из категории
которую может поместиться 1 красный или 1 синий шарик. как выкатить все синие шарики из желоба, при условии, что их вынимать нельзя?
выражение будет<0, то выводить нет решения и отправлять обратно на ввод аргумента.
Найдите N-первых таких трёхзначных чисел. (N=70)
Читайте также
и В(3*3). Вывести на экран тот из них, у которого меньше сумма элементов главной диагонали.
17.Дан массив А(3*4). Заменить все отрицательные элементы на противоположные.
Найти наименьшие элементы в каждом столбце матрицы Х(5,5) и переписать их в одномерных массив А.В массиве А вычислить сумму элементов,стоящих на четных местах и произведение элементов,стоящих на нечетных местах.Массив А,сумму и произведение вывести на экран
число k (0 < k < 11) и матрица размера 4 x 10. Найти сумму и произведение
элементов k-го столбца данной матрицы.