Размещено 3 года назад по предмету
Информатика
от barbsina228
Для следующего фрагмента программы:
program prog; a) определить результат выполнения (1 балл)
uses crt;
const a:array[1..8] of integer=(2,9,15,-1,6,14,5,-9);
var i,p:integer;
begin b) сформулировать условие задачи (1 балл)
clrscr;
p:=1;
for i:=1 to 8 do
if a[i] mod 5=0 then p:=p*a[i]; c) составить блок-схему (1 балл)
write('p= ‘,p);
readln
end.