Во Что определяет для массива X[1..n , 1..m] следующий алгоритм
S := 0;
For i := 1 to n do
For j := 1 to m do
If X[i, j ] <0 then S := S + X[i, j];
A) минимальный элемент массива
B) сумму отрицательных элементов массива
C) максимальный элемент массива
D) количество отрицательных элементов массива
Во Что определяет для массива X[1..n , 1..m] следующий алгоритм
For i := 1 to n do
For j := 1 to m do
If i mod 2 = 0 then X[i, j] := A;
A) четные столбцы матрицы заменить на А
B) четные строки матрицы заменить на А
C) количество четных элементов массива
D) нечетные строки матрицы заменить на А
Во Что определяет для массива X[1..n , 1..m] следующий алгоритм
V := 0;
For i := 1 to n do
For j := 1 to m do
If X[i, j] = T then V := V + 1;
A) сумма элементов каждой строки матриц X и Y
B) количество элементов матрицы, равных Т
C) количество равных элементов матрицы X
D) количество элементов матрицы X не равных Т
Во Что выполняет данный фрагмент программы:
for i:=1 to 5 do
begin
for j:=1 to 10 do
write ( a [ i , j ]:4);
writeln ;
end ;
A) ввод элементов, стоящих в i -й строке матрицы, в одной экранной строке с клавиатуры, при этом вводится по 4 элемента в одной строке
B) ввод элементов, стоящих в j -ом столбце матрицы, с клавиатуры, по 4 элемента
C) печать элементов, стоящих в i -й строке матрицы в столбец, при этом для вывода каждого элемента отводится 4 позиции
D) печать элементов, стоящих в i -й строке матрицы в одной экранной строке, при этом для вывода каждого элемента отводится 4 позиции
Во Дан двумерный массив a размером 5*5
41 87 37 12 45
74 42 78 38 43
48 12 11 79 96
78 34 72 91 12
79 25 13 18 89
Чему равен элемент a[4,3]
A) 72
B) 79
C) 34
D) 43
Во Дан двумерный массив a размером 5*5
41 87 37 12 45
74 42 78 58 43
48 72 46 49 56
70 34 72 91 12
79 25 73 18 89
Что будет записано в переменную f
f:=a[4,1];
For k:=2 to 5 do if a[4,k]>f then f:=a[4,k];
// PascalABC.NET 3.1, сборка 1200 от 13.03.2016
function IsPrime(n:integer):boolean;
begin
if n<4 then Result:=True
else begin
var found:= (n mod 2 = 0);
var p:=3;
while (not found) and (sqr(p)<=n) do
begin
found:=(n mod p = 0);
p+=2
end;
Result:=not found
end
end;
begin
Writeln('k=',ArrRandom(ReadInteger('n='),1,999).Println.
Where(x->IsPrime(x)).Count)
end.
Тестовое решение:
n= 10
401 828 780 444 694 965 23 341 673 875
k=3
2. А вот так это пишется с процедурой
// PascalABC.NET 3.1, сборка 1200 от 13.03.2016
procedure IsPrime(n:integer; var res:boolean);
begin
if n<4 then res:=True
else begin
var found:= (n mod 2 = 0);
var p:=3;
while (not found) and (sqr(p)<=n) do
begin
found:=(n mod p = 0);
p+=2
end;
res:=not found
end
end;
begin
var a:=ArrRandom(ReadInteger('n='),1,999); a.Println;
var k:=0;
var prime:boolean;
foreach var e in a do begin
IsPrime(e,prime);
if Prime then Inc(k)
end;
Writeln('k=',k)
end.
Тестовое решение:
n= 12
199 43 71 365 417 904 170 212 694 103 161 689
k=4