Во Что определяет для массива 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];
var a, b, с: integer;
begin
write('Введите два числа: ');
readln(a, b);
if a < b then с := a + 1 else с := b + 1;
repeat с := с - 1
until (a mod с = 0) and (b mod с = 0);
write('NOD = ', с)
end.
//2. Алгоритм с вычитанием (цикл while)
var a, b: integer;
begin
write('a = ');
readln(a);
write('b = ');
readln(b);
while a <> b do
if a > b then
a := a - b
else
b := b - a;
writeln('NOD = ', a);
end.