6. Дан фрагмент программы на Паскале: а:=1; b:=1;
begin
а:=a+1; b:=b+2
end; ;
s: a+b;
Чему будут равны значения переменных а, Биs после завершения этой последовательности
операторов?​

Var i,max,min,imax,imin,sum,kol:longint;
a:array [1..1000] of longint;
begin
i:=1;
readln(a[i]);
max:=0;
min:=maxint;
sum:=0;
kol:=0;
while a[i]<>0 do begin
 if a[i] mod 2=0 then
  begin  kol:=kol+1; sum:=sum+a[i]; end;
 if a[i]>max then
  begin max:=a[i]; imax:=i; end;
 if a[i]<min then
  begin min:=a[i]; imin:=i; end;
i:=i+1; 
readln(a[i]);
end;
writeln('Количество чисел:',kol,',сумма чисел:',sum);
writeln('максимальное из чисел: ',max,',номер максимального числа:',imax);
writeln('минимальное из чисел: ',min,',номер минимального числа:',imin);
end.

Пример:
15
27
94
60
51
0
Количество чисел:2,сумма чисел:154
максимальное из чисел: 94,номер максимального числа:3
минимальное из чисел: 15,номер минимального числа:1

Решение представлено во вложении.

Язык: Pascal

Пояснение: Если я правильно всё понимаю, то твоя программа должна подсчитывать произведение элементов массива кратных 5.

Так вот, во-первых - для начала необходимо проинициализировать переменную p в самом начале программы:

p:=1; // единица, т.к если мы сюда присвоим ноль, то произведение всегда будет равно нулю.

Во-вторых: я не очень понимаю, зачем нужна строчка №9:

p:=p*a[i] // Она у тебя написана вне конструкции if. Поэтому получается так, что ты считаешь произведение всех элементов массива, а не только кратных 5. К тому же, если найдётся элемент кратный пяти, то p домножится на него ещё раз.

Почему p = 0?

P могла быть равна 0 из-за строчки №9. В массиве мог сгенерироваться элемент с нулевым значением. А т.к у тебя было лишнее присвоение вне конструкции if, то твоё произведение было бы равно нулю.

А теперь реальная причина, по которой p = 0.

Компилятор выделил память для переменной p, но т.к ты её не инициализировал, то в этом выделенном под p участке памяти могло быть что угодно. Чтобы избежать различных конфликтов, если ты самостоятельно явно не инициализируешь переменную, то компилятор её обнуляет сам. Что и произошло в твоём случае. У тебя p просто не могло быть равным другому числу, потому что 0*(любое число) = 0.

Я исправил твою программу, теперь она работает правильно. Строки, которые я перенёс в другую часть программы или строки, содержащие ошибки, я закомментировал, так что ты можешь сравнить изначальную версию программы и исправленную.

Примечание: т.к мы инициализировали в начале программы p и присвоили значение 1, то необходимо учесть то, что в массиве может не оказаться ни одного элемента, который был бы кратен 5. Шанс очень мал, но он есть. Тогда p так и останется = 1 и программа выдаст ложный результат. Учти этот момент и пропиши необходимые условия.

Какие такие необходимые условия?

Давай подумаем, а может ли p = 1 при том условии, что у нас есть хотя бы один элемент, который кратен 5? Конечно нет. Так вот, необходимо сделать проверку: if (p = 1) then write('Не обнаружено ни одного элемента кратного 5!', #10) else write(#10, 'Произведение элементов массива кратных 5 = ', p);

Также необходимо обговорить тот момент, что p всё же может оказаться равным 0. Это произойдёт если сгенерируется хотя бы один элемент с нулевым значением. Тогда у нас выполнится условие (0 mod 5 = 0) и p станет равным 0.

Если мы хотим избежать этого случая, то необходимо исключить генерацию элементов с нулевым значением. Хотя свойство делимости определено на всём множестве целых чисел, обычно рассматривается лишь делимость натуральных чисел. Так что, я думаю это будет логичным решением.

Я попытался написать всё подробно и понятно, но если возникнут вопросы, ты всегда можешь их задать.