2. Исправьте ошибки в программном код Программный код Результат Исправленная строка выполнения программного - id2135034120200619 от AliskaLao16 19.06.2020 04:29

Question

Информатика: 2. Исправьте ошибки в программном код Программный код Результат Исправленная строка выполнения программного кода 1. a=[ 5 , 21 , 18”] 2118 2. c=a[2]+a[3] 3. print(c) 1. a=[23,7,45,31] 23,104,45,31 2. b=[43,65,12,92] 43,65,72,92 3. a[1]=b[2]-b[3] 4. b[3]=a[1]+b[1] 5. print (а) 6. print (b) 1. a=[[n”, е , р ]-[ 1 , d”, ”а”), nake [*g , s , k ]] 2. b=a[1][1]+a[1][2]+a[2][2]+a[0][1] 3. print (b) 3. Дан одномерный массив. Найдите сумму и количество положительных элементов массива. 4. Задан массив А[n]

AliskaLao16 · Accepted Answer

Сначала надо избавиться от ошибок (пункт №3)
иначе не сможем выполнить 1 и 2 пункт задания.
Исправляем if N mod 10 k:=N mod 10; на if (N mod 10 < k) then k:=N mod 10;
Исправляем N:N div 10; на N:= N div 10;

После исправления ошибок при вводе 537 получим 3
Программа будет работать правильно для любого числа,
у которого вторая цифра слева меньше первой цифры, например:
7193

Чтобы программа работала правильно для всех чисел надо
изменить это: while N > 10 do на while N > 0 do

После всех исправлений код программы стал таким:
var
N, k: integer;
begin
readln(N);
k := 9;
while N > 10 do
begin
if (N mod 10 < k) then k := N mod 10;
N := N div 10;
end;
write(k)
end.

MOGZ ответил