Question

Вниманию тех, кто знает Паскаль (АВС): 7. Задан массив Х [ 1 ... N ] . Какое условие надо поставить вместо многоточия, чтобы найти в переменной S количество элементов массива, десятичная запись которых заканчивается на 6? S : = 0 ; for k : = 1 to N do begin if ......... then S : = S + 1 end ; 8. Задан тот же массив. Какое условие надо поставить вместо многоточия, чтобы найти минимальный элемент массива в переменной M? M : = X [ 1 ] ; for k : = 2 to N do begin if ......... then M : = X [ k ] end ; 9. Задан тот же массив. Какой оператор надо поставить вместо многоточия, чтобы найти номер максимального элемента массива в переменной M? M : = 1 ; for k : = 2 to N do begin if X [ k ] > X [ M ] then .............. end ;

Answer 1

7. Чтобы проверить последнюю цифру на какое-то условие нам нужно ее "откусить" это в Паскале мы можем сделать с помощью mod.

x[k] mod 10 = 6

8. Поиск минимума, стандартная задачка, если что-то меньше минимума, то это что-то становится минимумом.

x[k] < M

9. Здесь почти тоже самое, что и в номере 8, только теперь мы ищем максимум, но не значение, а индекс максимального элемента.

m := k;

Answer 2

Для поиска элементов массива, десятичная запись которых заканчивается на 6, вам нужно проверить, заканчивается ли последняя цифра элемента на 6. Для этого вы можете использовать оператор остатка от деления (%), проверяя, равен ли остаток от деления элемента на 10 значению 6.

1. Для задачи 7:

pascalCopy code
S := 0;
for k := 1 to N do
begin
  if X[k] mod 10 = 6 then
    S := S + 1;
end;

2. Для поиска минимального элемента массива в задаче 8, начните с предположения, что первый элемент массива - это минимальное значение, а затем сравнивайте его с остальными элементами:

pascalCopy code
M := X[1];
for k := 2 to N do
begin
  if X[k] < M then
    M := X[k];
end;

3. Для поиска номера максимального элемента массива в задаче 9, вы можете использовать цикл для сравнения каждого элемента с текущим максимальным значением и обновления номера, если находится больший элемент:

pascalCopy code
M := 1;
for k := 2 to N do
begin
  if X[k] > X[M] then
    M := k;
end;

Эти кодовые фрагменты помогут вам решить задачи 7, 8 и 9 с использованием языка Pascal.