Question

ПОМОГИТЕ СРОЧНО! ОТВЕТ ПОДРОБНЕЕ ПЖ! В таблице Dat хранятся положотельные или отрицательные числа. Опеределите, что будет напечатано в результате паботы следующей программы. Текст программы приведен на языке прогроммирования Паскаль. var k, m: integer; Dat: array[1..10] of integer; begin Dat[1] := 5; Dat[2] := 4; Dat[3] := -3; Dat[4] := 2; Dat[5] := 1; Dat[6] := -10; Dat[7] := 9; Dat[8] := 8; Dat[9] := -7; Dat[10] := 6; m := 1; for k:= 1 to 10 do if Dat[k]*m < 0 then begin m := Dat[k] end; writeln(m); end.

Answer 1

На экран будут напечатаны все отрицательные числа. То есть:
Dat[3] := -3;
Dat[6] := -10;
Dat[9] := -7;

В консоли, при выполнении программы, вы увидите:
-3
-10
-7

Answer 2

Давайте разберем программу по шагам:

1. Объявляются переменные k, m и массив Dat, в котором хранятся 10 целых чисел.
2. Массив Dat заполняется значениями.
3. Переменной m присваивается значение 1.
4. Запускается цикл for, который перебирает значения от 1 до 10 (включительно) по переменной k.
5. Внутри цикла проверяется условие if Dat[k]*m < 0, что означает, если произведение элемента Dat[k] на текущее значение m отрицательно, то выполняется код внутри блока begin...end.
6. Внутри блока begin...end переменной m присваивается значение Dat[k].

Теперь давайте пройдемся по каждой итерации цикла и проверим условие if Dat[k]*m < 0:

1. k = 1: Dat[1] = 5, m = 1, Dat[1] * m = 5 * 1 = 5, условие не выполняется, значение m остается равным 1.
2. k = 2: Dat[2] = 4, m = 1, Dat[2] * m = 4 * 1 = 4, условие не выполняется, значение m остается равным 1.
3. k = 3: Dat[3] = -3, m = 1, Dat[3] * m = -3 * 1 = -3, условие выполняется, значение m становится равным -3.
4. k = 4: Dat[4] = 2, m = -3, Dat[4] * m = 2 * -3 = -6, условие выполняется, значение m становится равным -6.
5. k = 5: Dat[5] = 1, m = -6, Dat[5] * m = 1 * -6 = -6, условие не выполняется, значение m остается равным -6.
6. k = 6: Dat[6] = -10, m = -6, Dat[6] * m = -10 * -6 = 60, условие не выполняется, значение m остается равным -6.
7. k = 7: Dat[7] = 9, m = -6, Dat[7] * m = 9 * -6 = -54, условие выполняется, значение m становится равным 9.
8. k = 8: Dat[8] = 8, m = 9, Dat[8] * m = 8 * 9 = 72, условие не выполняется, значение m остается равным 9.
9. k = 9: Dat[9] = -7, m = 9, Dat[9] * m = -7 * 9 = -63, условие выполняется, значение m становится равным -7.
10. k = 10: Dat[10] = 6, m = -7, Dat[10] * m = 6 * -7 = -42, условие выполняется, значение m становится равным 6.

После завершения цикла, программа выводит значение переменной m, которая в конечном итоге равна 6.

Итак, результат работы программы - число 6 будет напечатано на экране.